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A GERAÇÃO DO CURSOR 


NO MSX 


Alguns micros apresentam na tela um cursor piscante, cuja 
frequência do acender e apagar pode ser regulada através da alte- 
ração do conteúdo de alguma variável do sistema. Nos micros MSX 
o cursor é gerado de modo fixo, mas pode ser alterado através de 
software para piscar. 


Normalmente, o processo pelo qual o cursor é gerado nos MSX 
envolve basicamente seis variáveis do sistema: 


CSRX em &HF3DD | coordenada horizontal do cursor. 

CSRY em &HF3DC | coordenada vertical do cursor. 

CURSAV em &HFBCC rascunho para armazenar o ca- 
ractere sob o cursor. 

LINWRK em &HFC18 rascunho de 40 bytes. 

CSRSW em &HFCA9 indicador de cursor “ligado” (0) 
ou “desligado” (255). 

CSTYLE em &HFCAA | indicador de cursor cheio ou pela 


metade. 


Figura 1 - CARACTERE “A” NA TELA 


Coluna 15— 





Linha 10 —+- 


Figura 2 - CONTEÚDO DE CURSAV 





Figura 3 - DESENHO DO “A” NA VRAM 


0000000090 
0901090009 
01910009 
1990901009 


1909019099 
11111000 
10001009 
10001000 





4CPU 





RENATO DA SILVA OLIVEIRA 


O cursor é gerado apenas quando a variável CSRSW contém 
zero. 

Para gerar o cursor, o caractere apontado na tela pelas variáveis 
CSRX e CSRY tem seu código copiado da VRAM para a variável 
CURSAV (lembre-se de que quando a tela está “limpa”, na verdade, 
ela está repleta de caracteres nulos, de código 0). 

A seguir, seu desenho (8 bytes) é lido da VRAM e copiado para 
a variável LINWRK. Se CSTYLE for 0, os 8 bytes são invertidos, 
se não, apenas os 4 bytes inferiores o são. 

Finalmente, os 8 bytes alterados em LINWRK são copiados para 
a posição do cursor (código 255) na tabela de caracteres da VRAM 
ecódigo 255 é gravado na tela, exatamente na posição apontada por 
CSRX e CSRY. 

Apenas a título de ilustração, vamos supor que o caractere sobre 
o qual o cursor esté posicionado é a letra “A”, na linha 10 e coluna 
15 da SCREEN 0. Se CSRSW=0 e CSTYLE=0, o processo de 
geração do cursor é ilustrado pela seguinte sequência (figuras 1 a 5). 


Figura 4 - DESENHO APÓS CÓPIA E INVERSÃO EM LINWRK 
E DESENHO DO CURSOR NA VRAM 


LINURK —+ 


1 
1 
a 
q 
1 
o! 
1 
1 


a pa ts e pe) pa 
du ea pa ta Ja a 
DOGODm mma 
e e ua o e pa 
de e a e o pa 
de o e pa ap 


1 
1 
1 
o 
o 
o 
o 
o 





Figura 5 - CURSOR NA TELA 


Coluna 15— 











A listagem da figura 6 foi digitada usando-se o editor de textos 
MSX WRITE. Você poderá usar qualquer outro editor que grave os 
dados em ASCII, como o SCED (ou MED, na versão mais recente), 
o WordStar, o Deletra, etc. Cuidado se você for usar o Tass Word 
original, pois seu formato de gravação é peculiar. Existem, 
entretanto, versões adaptadas que também gravam em ASCII. 
Lembre-se ainda que os comentários não precisam ser digitados! 

Uma vez digitado o texto do programa, teremos que compilá-lo. 
Ele está escrito de modo a ser compilado diretamente pelo M80 da 
Microsoft. Entretanto, se você quiser, poderá adaptá-lo facilmente 
para uso com o Coral Simple ASM (Cocar e Mega Assembler, nas 
“versões” nacionais). Para tanto, basta numerar as linhas do 
programa, substituir a pseudo-instrução “.Z80” por “ORG 
0D000H” e acrescentar os dois pontos (“:”) antes das pseudo- 
instruções “EQU”. 

Para fazer a compilação com o M80, grave o programa com o 
nome “CURSOR.MAC” e comande, a partir do MSXDOS: 

A>M80 =CURSOR 
A seguir, se tudo correu bem, use o L80 com a seguinte sintaxe: 
A>L80 /p:d000,cursor,cursor/n/x/e 
Finalmente, use o comando BSAVE do MSXDOS TOLL's: 
A>BSAVE cursor.hex cursor.bin 
Agora, experimente comandar: 
A>dir cursor.* 

Você deverá ter em disco quatro arquivos: 

CURSOR.MAC 

CURSOR.REL 

CURSOR.HEX 

CURSOR.SIN 

Se quiser, apague os arquivos terminados em “REL” e em 
“HEX”, preservando os outros dois. 

O arquivo “CURSOR.BIN” é o programa em Linguagem de 
Máquina, para ser carregado e executado através do BASIC. 

Para fazer a compilação com o Coral Simple ASM, basta 
comandar: 

>AOU 

Parasalvá-loem disco, vá para o BASIC com o comando “>BA” 

e comande: 
BSAVE”CURSOR.BIN”,&HD000,&HDO80 

Agora, com o programa em L.M. já carregado na memória, 

execute-o com os comandos: 
DEFUSR=8&HD000:POKEO,USR(5) 

Observe que, se tudo correu bem até aqui, o cursor deverá estar 
piscando. Experimente alterar o valor do parâmetro passado na 
função USR. Ao invés de 5, use outros valores. Esse parâmetro 
regula a frequênci do “acender” e “apagar” do cursor. Se você passar 
o parâmetro 0, o cursor voltará ao estado normal, sem piscar. 

Experimente também levar o cursor piscando para a última linha 
da tela com as teclas de setas. Não sc asuste se ele parar de piscar, 
pois é isso o que deve ocorre sempre que ele estiver na última linha. 
Teste também os comandos “KEY ON” e “KEY OFF”. 

Agora que já temos o progrma digitado e funcionando, vamos 
tentar entender a listagem em assembly. Antes de mais nada, tente 
acompanhar os comentários na própria listagem. 

A primeira parte do programa recebe o parâmetro passado pelo 
BASIC, testa se ele é um inteiro e o insere na variável VELOCI. A 
seguir, se o parâmetro for zero, o hook HKEY é restabelecido com 
um RET (0C 9H), desligando assim a rotina para piscar. Se o parã- 
metro for um inteiro diferente de O e entre 1 e 255,0 hook HKEYI 
é apontado para a rotina INÍCIO. 

A rotina INICIO será executada sempre que uma interrupção 
ocorrer. Inicialmente todos os registros do Z80 são salvos e 
um teste é realizado para saber se o cursor está na última linha útil 


datela. Se estiver, a“piscada” do cursor é desligado. Isso é feito para 
evitar complicações com a rotina de SCROLL da ROM. Sempre 
que um SCROLL for executado, se o cursor estiver piscando, pode- 
rão ocorrer efeitos estranhos no vídeo. Pode-se evitar isso de várias 
formas mas, para não tomarmos o programa muito grande, 
optamos por simplesmente desligar a “piscada” quando o SCROLL 
ocorre. Note que, quando as teclas de funções são mostradas, a 
última linha da tela é a vigésima terceira e a variável CNSDFG 
contém o valor &HFF. 

O trecho seguinte do programa verifica se está no momento de 
inverter o cursor ou não. Isso é feito comparando o valor de 
CONTAD com o valor de VELOCI. Se foremm iguais, a inversão 
do cursor é realizada e o valor de CONTAD é zerado. Caso 
contrário, a variável CONTAD é incrementada e a execução passa 
para a rotina de retorna. 

A rotina de inversão é muito simples, invertendo, apenas cada 
um dos bytes do desenho do cursor (código 255) na tabela de 
caracteres da VRAM. Note que o valor 2040 é a posição relativa do 
primeiro byte do cursor dentro da tabela e a variável TXTCGP 
aponta para o início da tabela da VRAM. Arrotina LACO é repetida 
8 vezes e é bastante simples. Quando ela é executada, B contém o 
valor 8 e HL áponta para o endereço da VRAM com o primeiro byte 
do desenho do cursor. As rotinas RDVRM e WRTVRM, apesar de 
existirem no BIOS, foram refeitas e funcionam de modo análogo: 
o par HL deve apontar o endereço da VRAM e o byte lido ou 
gravado deve estar no registro A. 

Sendoassim,oLACO apenas lê cada um dos 8 bytes do desenho 
do cursor, os inverte e os grava novamente na mesma posição. 

Aos amigos ex-usuários do TRS-80, lembramos mais uma vez 
para que atentem à versatilidade do MSX! 

Se você está interessado no efeito do cursor piscando mas não 
quizse arriscar “as “complicações” com a compilação, “linkagem" 
e binarização, basta digitar e rodar o programa em BASIC listado 
na figura 7. Ele gera a rotina em linguagem de máquina e a executa, 
passando o parâmetro 5 na função USR. 

FIGURA 7 - PROGRAMA EM BASIC 


1000 SCREEN O : WIDTH 40 : KEY OFF 
1010 FOR F=8HDO00 TO &HDOBO 

1020 READ AS : POKE F,VALCCRHC+AS) 
1030 NEXT F : CLEAR 200, &HDO0O 

1040 DEFUSRO=8HDO0O : POKE O,USRO(S) 
1050 * 

1200 DATA F3,FE,02,00,23,23,7E,32 
1210 DATA 7F,DO,FE,00,20,07,3E,09 
1220 DATA 32,9A,FD,18,08,21,22,D0 
1230 DATA 22,98,RD,3E,C3,32,9A,FD 
1248 DATA FB,09,F3,09,3A,DE,F3,Eó 


1250 DATA 01,47,3A,DC,F3,80,FE,18 
1260 DATA 28,27,21,7F,DQ,3A,7E,DO 
1270 DATA BE,28,06,3,32,7E,D6,18 


1280 DATA 18,2h,87,F3,01,FB,07,09 
1290 DATA 06,08,CD,5B,DO,2F,CD,69 
1309 DATA D9,23,10,F6,3E,00,92,7E 
1310 DATA DO,D9,C9,7D,03,99,7C,E6 
1320 DATA 3F,03,99,CD,78,D0,DB,98 
1330 DATA C9,F5,7D,D3,99,7C,E6,3F 
1340 DATA Fó,40,03,99,CD,7B,D0,Fí 
1350 DATA D3,98,07,E3,E3,C9,00,05 
1360 DATA 00,58,53,57,20,52,53,4F 








Renato da Silva Oliveira é diretor da XSW Publicações e 
Planejamento e Sistemas Ltda e autor de vários livros sobre 
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Note que quando as v: CSRX ou CSRY forem alteradas, 
forçando a mudança de posição do cursor, o caractere armazenado 
em CURSAV é repassado para a sua posição original na tela, 
restabelecendo assim o seu aspecto antes da formação do cursor. 

Como pudemos notar, não existe um desenho “fixo” para o 
caractere cursor nos micros MSX. Seu desenho é sempre redefinido 
para apresentar o inverso do caractere sobre o qual ele se encontra. 

Agora vamos ilustrar um processo pelo qual podemos interferir 
na formação do cursor.Para isso teremos que recorrer ao uso de um 
hook da rotina de interrupção do micro. O primeiro hook chamado 
pelarotina de interrupção é o HKEYI, em &HFD9A. Vamos apontá- 
lo para um pequeno programa em L.M. que vai alterar a formação 
do cursor. 





Figura 6 - LISTAGEM EM ASSEMBLY 


PROGRAMA PARA CURSOR “PISCANTE” 
3 FAZENDO A INVERSÃO (R.5.0.-89) 
))) Somente para a SCREEN 4 (44 


sconpilacao eu assenbly 780 


7 Variaveis do sistema e hosts 


TKICOP Eau 
CS EM OFaM 
CNSDFG EQU  OF30EM 

EU FDA 


CE sinicio da tabela de caracteres na URAM 
:posicao vertical do cursor 
sindicador de mostra (4) ou não mostra (255) tecias de funcos 


pr Ineira hook de interrupção 


ligar ou desligar 


adesabílita à interrupcao 
iverifica se parametro e inteira 
aretorna se nao for 


n ponta HL para o paranetro passado 
H 

A HO scarrega parasetro no acumulador 
(VELOCI,A  scarrega parametro como VELOCIdade 

º iverifica se velocidade é zero e 
NZ,SETHOK não for, liga à rotina com a book 
A OCH juas se for, desliga a rotina na hook 
CMMEVTO A 

sETHOS 


ESLIo 


NL, INICIO 
UMMENTA Ho 
A Cam 
CENT ,A 


saponta hook para à rotina 


sETHOS: stabilita a interrupcao 


retorna para o BASIC 


interrupcao 


INICIO: OI sdesabilita à interrupcao 
Ex salva todos os registradores 
LD ACNSDEG) erífica se as teclas de funcoes estao na tela e 
aos ;se estiverem, carrega o acumulador com 1, se não, com é 
uv BA icarrega B com o acumulador 
LD Aster) scarrega a coordenada vertical do cursor no acumulador 
ao AB :soua coordenada vertical com 6 (teclas ausentes) ou 1 
(terlas presentes) 
sverífica se o cursor esta na ultima Linha da tela 
se se estiver, retorna 


[E] 
JR TARETORN 


LD ML SELOCI 
LD AsCCONTAD) 
cm) 


saponta HL para a VELOCidade 
scarrega contador no acumilador 
scompara velocidade com contador e 
Ro LINET se iguais, inverte o cursor 
mo A mas Se nao, incrementa o contador 
LD (ConTHD),A e 
Ro RETO sretorna 
INVERTE LD 


ML(TMICSP)  savonta hl sara início da tabela de cararteres da VRAM 


6CPU 


RETORNE 


VRTVRNE PUSH AF 


CONTAO: DEFE 
VELOCI: DEFB 


Observe a listagem da figura 6. Ela apresenta a nossa rotina com 
alguns comentários sobre seu funcionamento. 

Convém terem mente que ela é bastante específica, funcionando 
apenas na'SCREEN 1 e ainda com uma restrição para a última linha 
da tela. 

Existem outras formas mais rápidas, mais curtas e mais 
genéricas para se produzir o mesmo efeito, usando algumas rotinas 
que já existem prontas na ROM do micro. Preferimos, entretanto, 
dar mais atenção ao aspecto ilustrativo que ao de eficiência e 
optamos pela rotina ora apresentada. 

Vamos ver inicialmente como deve ser gerado o programa em 
L.M. a partir da listagem em assembly da figura 6. 


Rr, 2040 scarrega BC com 25548 inicio do caractere cursor na tabela) 
HL,8C saponta HL para início do caractere cursor na VRAM 
28 scarrega 8 Icontador do LAO) com B 
RDVRA :le us byte do desenho do cursor 
sinverte o byte lido 
vRTURA garava o byte invertido 
H sincrementa H 
taco sdecrenenta B e repete o LACO se ele nao for zero 


as scarrega 8 no acuolador 
UCONTAD) A 


restabelece os registradores 
sretorna 


; Le o endereco apontador por H 
+ na URAM e o devolve eu 


sorepara VDP para ler o 
sendereco apontado em 
SML na VRAM 

x 

caomo,A 

TEMPO 

Artogamo 


sespera tenpo para 0 VD 
sle o byte da VA 
retorna 


; Brava o byte do acumulador no 
3 endereco da URM apontado por HL 


ssalva o bute 
prepara o VDP para gravar 
sum bute no endereco da WRAM 
sapontado por HL 


D a 
Or (MA 
DU Ah 
ANO 3H 
CE 
our (MA 
CAL TEMPO sespera tenpo para o VIP 

a precupear o byte 

conm,A ssrava o bute 

sretorna 


EX (SH 
EX ASI 
RE 


Var ijaveis do programa 


scontador de interrupcoes 
numero de interrupcoes para inverter o cursor 











NOVOS CARACTERES 


EM SCREEN 1 


Tem havido um grande aumento no número de programas, 
principalmente jogos, desenvolvidos exclusivamente em 
SCREEN 1. Isso se deve "as facilidades oferecidas por essa tela, 
que antes era renegada a um plano inferior, como a possibilidade de 
se redefinir totalmente o conjunto de caracteres e de colorir cada um 
dos octetos (grupos de oito caracteres) com cores distintas. Além 
disso, a morosidade da tela SCREEN 2 em relação à produção de 
gráficos mais sofisticados através do BASIC MSX também con- 
tribui para a afirmação da SCREEN 1. 

Este artigo é uma continuação do “PROGRAMAÇÃO 
GRÁFICA EM SCREEN 1”, que foi publicado na revista CPU 
número 2. 

O meu objetivo aqui é demonstrar aos leitores que com uma 
simplesrotinaem BASIC é possívelalterar o desenho dos caracteres 
da SCREEN 1 para padrões mais compatíveis com os programas 
onde serão utilizados. Embora a alteração dos padrões dos ca- 
racteres possa ser feita através do programa redefinidor apresentado 
no artigo anterior, com a vantagem de podermos redefinir os 
caracteres para quaisquer novos padrões, o método de redefinição 
porrotina tem, por sua vez, a vantagem de ocupar apenas a memória 
necessária para armazenar a rotina, enquanto o redefinidor precisa 
de meméória para guardar todo o novo conjunto de caracteres, isto é, 
dois Kbytes. Logo, a vantagem da rotina redefinidora é muito bem 
vista por quem faz programas extensos e precisa de alterar o padrão 
dos caracteres. 

Para se criar uma rotina é preciso, além de conhecer a estrutura 
da VRAM, também ter conhecimentos sobre as tabelas verdade das 
operações lógicas do MSX (veja artigo publicado em CPU número 
6), principalmente OR e AND e saber realizar rotações de bytes. 

Partindo do pressuposto de que os leitores já possuem um certo 
conhecimento a respeito da estrutura da VRAM, vou apenas lembrar 
que a tabela de padrões dos caracteres em SCREEN 1 inicia e 
termina, originalmente, em 0 (zero) e 2047, respectivamente, tendo, 
portanto, a extensão de dois Kbytes. 

As tabelas verdade das operações lógicas OR e AND são as 
seguintes: 


TABELA VERDADE - OPERAÇÃO OR 
OR 








mom o» 
mm os 











TABELA VERDADE - OPERAÇÃO AND 














SILVIO CHAN 


A rotação de bytes é feita através da divisão ou da multiplicação 
do valor do byte por 2”, onde n é o número de bits da rotação. Para 
fazer rotação de byte para a direita, deve-se dividir, e, para a 
esquerda, multiplica-se. Veja como: 








ROTAÇÃO PARA A DIREITA 
10000000 /21 = 01000000 
10000000 / 22 = 00100000 
10000000 / 27 = 00000001 











ROTAÇÃO PARA A ESQUERDA 
00000001 * 21 = 00000010 
00000001 * 22 = 00000100 
00000001 * 27 = 10000000 











A seguir, apresento oito exemplos de rotinas redefinidoras de 
padrões de caracteres e explico seus algoritmos. 


CARACTERES BOLD 

O conjunto de caracteres BOLD possui o traço mais largo e 
grosso do que o dos caracteres normais. Podemos obtê-lo através da 
rotação de um bit para a direita dos bytes que compõem os ca- 
racteres, que equivale a dividir o valor original por 2 e, em seguida, 
efetuando a operação OR entre o byte original e o alterado. Observe: 


ROTAÇÃO OP.OR 
































ORIGINAL 


ALTERADA BOLD 


ROTINA PARA GERAR CARACTERES BOLD 


10 SCREEN 1 : FOR I=1 TO 2047 : VPOKEI, VPEEK(I) 
OR VPEEK(I)/ 2:NEXT 
Observação: Uma outra rotina para gerar caracteres BOLD foi 
publicada no informativo da Editora Aleph número 10, possuindo o 
mesmo algoritmo. 


CARACTERES LARGOS 

Para se gerar caracteres LARGOS podemos usar o mesmo 
princípio gerador dos BOLD. No entanto, antes de realizar a 
operação OR entre a matriz alterada, será necessário colocar uma 
máscara através da operação AND sobre cada matriz. Na original 
serão preservados os três bits da esquerda e, naalterada, oscinco bits 
da direita. Só então será feita a operação OR entre as matrizes 
“mascaradas”, obtendo, assim, os caracteres LARGOS. 
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ROT 
ORIGINAL ALTERADA 
1] 
[1 
AND = 
MÁSCARA ORIGINAL ORIGINAL 
MASCARADA 
AND = 
MÁSCARA ALTERADA ALTERADA 
MASCARADA 
AND] 
ORIGINAL ALTERADA 
MASCARADA MASCARADA 


ROTINA PARA GERAR CARACTERES LARGOS 

10 SCREEN 1 : FOR 1=0 TO 2047 : K=VPEEK(I) AND 
«B11100000 : L=(VPEEK (1) /2) AND &B00011111 : 
VPOKEI,K OR L : NEXT 


CARACTERES LARGOS BOLD 

Este tipo de caracteres é o resultado da união das rotinasLARGO 
e BOLD. Para obtê-los, gera-se os caracteres LARGOS nor- 
malmente e, em seguida, realiza-se a operação OR entre a matriz 
larga original e uma matriz larga com um bitderotação para a direita. 














LARGO 
BOLD 


LARGO 
ALTERADO 


LARGO 
ORIGINAL 


ROTINA PARA GERAR CARACTERES LARGOS BOLD 

10 SCREEN 1 : FOR I=0 TO 2047 : K=VPEEK(I) AND 
4B11100000 : L=VPEEK(I) /2) AND &B00011111 : 
M=K OR L : VPOKE I,M OR M/2 : NEXT 


8CPU 








CARACTERES SEMI-BOLD 

Denominei estes caracteres de semi-bold porque, dos oito bits 
que formam um byte de padrão, quatro têm características BOLD e 
Os outros quatro são comuns. Podem ser de dois tipos: ESQUERDA 
BOLD E DIREITA BOLD. 


ESQUERDA BOLD 

Parase obter este tipo, faz-se a rotação de um bit para a direita dos 
bytes da matriz original. Coloca-se uma máscara na original para 
que somente restem as três colunas da esquerda. Realiza-se a 
operação OR entre a matriz e a “mascarada”, obtendo o novo 
caracter. 








































































































ROTAÇÃO H 
ORIGINAL ALTERADA 
Ho : Fo 
MÁSCARA ORIGINAL MASCARADA 
- aq - A 
MASCARADA ALTERADA ESQUERDA BOLD. 
DIREITA BOLD 


Seguindo o mesmo processo, consegue-se o tipo DIREITA 
BOLD. A única alteração será o uso da máscara na matriz alterada, 
fazendo com que restem somente as cinco colunas da direita, 
enquanto a matriz original não recebe nenhuma máscara, ficando 










































































inalterada. 
+ : RE 
MÁSCARA ALTERADA MASCARADA 
i H. E H 
MASCARADA ORIGINAL DIREITA BOLD 





ROTINAS PARA GERAR CARACTERES SEMI-BOLD CARACTERES INCLINADOS 


ESQUERDA BOLD Parasecriarcaracteres inclinados, basta fazer a rotação dos bytes 
10 SCREEN 1 : FOR I=0 TO 2047 : K=VPEEK(I) AND  damatrizdoscaracteres de modo que os bytes de cimaouos de baixo 
&B11100000 : L=VPEEK(I)/2 : VPOKEI,KORL : recebam um maior deslocamento. Dessa maneira, os caracteres 
NEXT poderão aparecer inclinados para a direita ou para a esquerda. 
DIREITA BOLD 
10 SCREEN 1 : FOR 1=0 TO 2047 : K=(VPEEK(1)/2) INCLINADOS PARA A DIREITA (ITÁLICOS) 
AND &B00011111 : L=VPEEK(I) : VPOKE I,KORL : Nos caracteres inclinados para a direita ou itálicos, os bytes da 
NEXT matriz sofrem as seguintes rotações: 

Primeiro e segundo bytes - dois bits para direita 
CARACTERES ESTREITOS Terceiro ao quinto - um bit para a direita 
Para obter este conjunto, colocamos uma máscara sobre a matriz. Sexto ao oitavo - inalterados. 


original de modo que sobrem apenas as três colunas da esquerda. O 
resultado será chamado de “mascarado um”. Novamente, com a 
matriz original, coloca-se uma máscara com a operação AND, para 
que fiquem somente as seis colunas da direita. Multiplica-se o valor 
de cada byte por dois para conseguir uma rotação de um bit para a 
esquerda. Fazemos uma OR entre a resultante e a “mascarada um” 
e obtemos a matriz estreita. 











ROTAÇÃO 











ORIGINAL ITÁLICO 


INCLINADOS PARA A ESQUERDA 

Nos caracteres inclinados para a esquerda, as rotações ocorrem 
de maneira inversa. Veja: 

Primeiro e sgundo bytes - inalterados 

Terceiro ao quinto - um bit para a direita 

Sexto ao oitavo- dois bits para a direita 











MÁSCARA ORIGINAL MASCARADA UM 





ROTAÇÃO 









MÁSCARA MASCARADA ORIGINAL INCLINADO 


PARA ESQUERDA 


ROTINAS PARA GERAR CARACTERES INCLINADOS 


INCLINADOS PARA A DIREITA 


10 SCREEN 1 : FOR I=0 TO 2047 STEP 8 : FOR N=1 TO 
MASCARADA RESULTANTE I+1 : VPOKENMV PEEK (N) /4 : NEXT : FOR N=I+2 TO I 
+4 : VPOKEN, V PEEK(N) /2 : NEXT : NEXT 








INCLINADOS PARA A ESQUERDA 


10 SCREEN 1 : FOR I=0 TO 2047 STEP 8 : FORN=1+2 T 
O I+4 : VPOKEN, VPEEK(N) /2 : NEXT : FORN=I+5 TOI 
+7 : VPOKEN, V PEEK(N) /4 : NEXT : NEXT 


GURI 


Gg 
R 
CPU 9 














MASCARADA UM RESULTANTE ESTREITO 






ROTINA PARA GERAR CARACTERES ESTREITOS 

10 SCREEN 1 : FOR I=0 TO 2047 : K=VPEEK(I) AND 
&B11100000 : L=(VPEEK(I) AND &8001111111)*2 
:VPOKEI,K OR L: NEXT 








BUS EXPANSION E RESET 


NO EXPERT 


Assim que os MSX foram lançados na feira de informática 
de 1985, surgiu uma richa entre os adoradores do Expert e os 
apaixonados pelo HotBit. Todos tentam provar que o seu é o melhor 
micro e ressaltam os pontos negativos do outro. Apesar de não 
querer entrar nessa briga, este artigo vem suprir um ponto falho do 
Expert e mostrar como usar um dos seus recursos extras. 


BOTÃO DE RESET 

Sem sombra de dúvida, um grande erro da Gradiente foi 
não ter dotado o Expert de botão de reset. Ele existe em quase todos 
os outros MSX do mundo e o motivo por que ele foi excluído do 
Expert é estúpido: falta de lugar. A equipe de design não achou onde 
colocá-lo no gabinete, ea engenharia afirma que é impossível passar 
os fios pelo cabo do teclado. 

Mas o reset não foi esquecido. Há dentro do Expert um 
circuito completo de reset, incluindo supressor de oscilação da 
chavee temporizador para manter o sinal o tempo necessário. E onde 
ele está conectado? Ali atrás, no Bus Expansion. 

No barramento do MSX há duas linhas (SW1 e SW2) que 
detectam se há um cartucho presente. Mas como não se pode (a 
princípio) colocar cartuchos no Bus Expansion, estes pinos foram 
ligados ao circuito de reset. Assim, basta ligar um deles ao +5V para 
obter o reset. 

Masnão há um reset por Software? Ele não é melhor? Bem, 
quando funciona ele é sim. Mas muitos programas costumam 
deixá-lo inoperante. Fica difícil usar o Konami GameMaster nos 
Jogos comuns sem ter um botão de reset, como o do HotBit. 

Este botão de reset estraga o micro? Não, de forma alguma. 
Infelizmente, alguém divulgou um circuito de reset que usava sinal 
RESET do barramento, esquecendo que esse sinal é exclusivamente 
de saída. O mesmo vale para alguns cartuchos que possuem este 
botão, já que os sinais SW1 e SW2 dos conectores A e B funcionam 
de modo normal. 

A instalação é simples. Não é necessário abrir o micro, nem 
requer conhecimentos de eletrônica, apenas cuidado e atenção. 
Como se vê na figura 1, basta achar o Bus Expansion, contar a 
terceira fileira da esquerda para a direita e soldar (ou prender) dois 
fios ligados aos terminais de um interruptor (chave liga-desliga não 
serve, mas serve até botão de campainha!) e pronto. 


Figura 1 
BUS EXPANSION 








50 
BUS EXPANSION 

Até hoje, poucas pessoas vêem utilidade no Bus Expan- 
sion. A idéia da Gradiente era reduzir o problema do baixo número 
inicial de slots do MSX, fora o fato de que o Bus Expansion facilita 
a aplicação do Expert em controle industrial. 
JO CPU 





RUBENS HENRIQUE KUHL JR. 
PAULISOFT INFORMÁTICA 


O Bus Expansion é uma extensão do conector frontal B, 
mas com uma limitação: se houver um cartucho no slot B, nenhum 
dispositivo com acesso por endereços (cartuchos com ROM oucom 
RAM entre outros) será selecionado. 

Mas dispositivos controlados por portas, como as inter- 
faces de comunicação e alguns programadores de EPROM, entre 
outros, podem ser ali ligados, deixando um slot livre. Outra 
aplicação é a cópia de programas em cartucho, bastando deixaro slot 
B vazio e encaixar o cartucho com o micro já ligado. 

O material pode sair caro, mas ter um conector a mais 
compensa a redução do tira-e-põe de cartuchos. A montagem fica 
assim: num conector fêmea de 50 pinos, solde um cabo plano de 50 
vias (quanto mais curto, mais barato e menos interferência) e neste 
um conector macho para cartucho igual ao que tem dentro do Expert 
(cuidado com a pinagem. Veja, na figura 2, como ela é ao contrário 
da do cartucho). Não ligue o cabo nos pinos 44 e 46 (SWl e SW2), 
pois fazem parte do circuito de reset (a ligação do botão de reset fica 
igual). 
Figura 2 


CARTRIDGE Ae B 





CAPS LOCK 

Para finalizar, não poderíamos esquecer de outra falha do 
Expert: o led do Caps Lock. Novamente, o argumento da Gradiente 
é o cabo do teclado ou o design. Só que eles não notaram que se 
houvesse mais duas vias para o reset e mais duas para o led, haveria 
cabo e conector disponíveis até em loja de eletrônica. 

No nosso caso, resolver o problema é difícil, pois seria 
necessário soldar um fio na PPI para ligar no Led, o que pode ser 
arriscado e ainda atrapalhar uma futura venda do micro. 

Jáque os adoradores do HotBit não devem ter lido até aqui, 
despeço-me dizendo que acho o Expert melhor, apesar do teclado 
(blargh!) e das falhas que discutimos aqui. Mas o Hotbit não deixa 
de serum MSX, que é o melhor padrão de 8 bits do mundo. Pena que 
ainda não tenhamos o MSX 2.0 ou o MSX 2.0 +. 












Rubens Henrique Kiúhl Jr. cursa engenharia elétrica na 
USP. Programa em MSX há três anos, trabalhando atu- 
almente para a Paulisoft, onde desenvolve projetos em 
Basic, Pascal, C e Assembly, dentre eles o copiador de 
discos. 
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NÃO É MÁGICA É TECNOLOGIA 
UM INCRÍVEL SOFTWARE QUE VAI DEIXAR SUAS ROTINAS DE CÁLCULO E PLOTAGEM DE GRÁFICOS DE 6 A 20 
VEZES MAIS RÁPIDAS! MSX TURBO É UM COMPILADOR QUE OPERA NA MEMÓRIA, ACELERANDO 
INCRIVELMENTE AS OPERAÇÕES DE CÁLCULO. 

FITA/DISCO - NCZ$ 25,80 


Super Editor de sprites 16x16 que inclui rotinas para 
reversão, espelho de 1/2 e 1/4. 





Finalmente alguém pensou em você, técnico ou hobista 
de eletrônica e criou um auxiliar para seus projetos. 
Tabela padrão de simbologia em Eletrônica; 

Recursos p/edição, montagem e impressão de esquemas 
p/projetos eletrônicos. 

Acompanha Arquivo Exemplo. 





O manual que acompanha o Software e genuinamente 
um curso sobre sprites. Inclui rotina para animar os 
sprites que você criar. 

Ferramenta indispensável ao programador e a quem 
A partir de agora, a apresentação dos seus esquemas deseja explorar e conhecer os recursos do MSX. 

terá aquele toque profissional! Autor: FÁBIO A. R. CORREA 


Autor: PAULO MARQUES FIGUEIRA 





FITA/DISCO - NCZ$ 19,40 
FITA/DISCO - NCZ$ 25,80 


LANÇAMENTOS 


GRAPHIC VIEW EROTIC SHOW - NCZ$ 6,00 
Incrível programa para criar animações gráficas. 





MEGA MUSIC - NCZ$ 5,00 





Software 100% nacional com manual, cópias com nº de série, garantia de "up to date” e assistência ao usuário. 
Incríveis produtos que vão fazer o seu MSX virar uma máquina quente. 


Envie seu pedido para a Cx. Postal 64.019 - CEP 02227 SP/SP, acompanhado de cheque nominal ou 
vale postal, ou visite-nos: Av. Prestes Maia 241 - Conj. 908 (a 100 metros da Estação São Bento do 


Metrô). Fone (011) 228-1313 


is) c/ nossos Produto: 








FAIXAS E CARACTERES NO MSX 


PIERLUIGI PIAZZI 
+50 DICAS PARA MSX 
EDITORA ALEPH 


x 


Recentemente, meu filho de 13 anos me perguntou se o Apple 
da Editora estava livre para que ele pudesse usá-lo por algumas 
horas. Fiquei intrigado. Afinal de contas, minha editora é especiali- 
zada em MSX e, entre Experte Hotbit temos uma dezena dessas 
máquinas em uso. Porque ele haveria de querer logo um Apple? 

Aí ele me explicou que queria fazer, na impressora, algumas 
faixas e cartazes para a feira de ciências do colégio, usando o 
programa “Printshop” do Apple. 

Ofendidíssimo nos meus brios de “MSX-maníaco”, sentei em 
frente aum Experte, pouco tempo depois, gerei o programa listado 
nesta matéria. 

Obviamente, como editor e escritor, resolvi aproveitá-lo, numa 
versão mais sofisticada, para o próximo lançamento da Aleph: 
“+50 Dicas para MSX”. Mas, enquanto o livro não sai, o editor da 
CPU e eu resolvemos brindar os leitores desta revista com mais 
uma rotina útil para seu MSX. 

"PROGRAMA DO LIVRO +50 DICAS P/M5X 

“EDITORA ALEPH 1988 
CLEARL0247POKE&HF 417 A-Z 
LPRINTCHR &(27)/A“CHREC 8) FESCREEN í 

LARG.DO CARACT. (6/7/8) 

LARG.DE IMPR.Cí À 32) 

ALTURA DE IMPR.(i à 9 P/89 COL 
E 1 À 44 P/í32 COL) 
HP=HIX642:M5=HPN2562:LS=HP MOD 
WT=iz "(4 A 4) DEFINE TEXTURA 


254 


Ub=-170%(WT=1)-204%(WUT=2)-240%(W 
RBot CUT=4) 

INPUT/QUAL A MENSAGEM FABEIF LENCAS) 
PRINTOLONGA DEMAIS !“s 


>250 THEN CLS: 

GOTO 200 

OSUB 350:FOR I=zi TO LENtAS) 

CoEMIDGCAS, I, 1) FE=ÁSCCCH) *8 

FORK=0TO =E+KSY6=BINSCUPEEK (X)) 

BECK he 6(“00000000+Y6,8) NEXTK 

FOR F=4TOLAsSPE="“:FOR J=7TOOSTEP-i 

PE=PE+MIDECBECI F,4)2NEXT 

GOSUB 28072:NEXT F,IZEND 

FOR M=1 TO LENCPS):TE=MIDECPE,M,1)z 

TCM ALCTE) eUWENEXT M 

FOR EL 

IF VAL(C&BO+P$)=0 THEN 340 

LPRINT CHR$(27)7 “KCHR$CLSICHRECMS); 

FOR M=14 TO LENCP$):FOR G=1 TO 8xHI 

LPRINT CHRECTEOM FENEXT G,M 

LPRINT CHR$(10);2NEXT NERETURN 
="“2FOR R=1 TO LENCAS) 
MIDECAD,R, 1) ES=ASC(ST) 
8231 THEN 06=05+5% 

THEN 26=05+CHR 5 

SC(MIDECAB,R+1,1))-64):R= 

NEXT R:Ab=0B:RETURN 





=R+Í 
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Após digitar (e gravar!) o programa listado, o usuário 
pode fazer algumas alterações para adptá-lo às suas necessi- 
dades. É 

Nalinha 140 é definida a largura do caracter a ser usado 
(LA), que pode variar de 6 a 8. Usando o valor 6, teremos o 
espaçamento da SCREEN 0 (alguns caracteres gráficos 
sairão “cortados”). O valor 8 reproduz os caracteres como na 
Screen1 (8x8 pontos). 

Nalinha 150 define-se a largura de impressão (de 1 a 32). 
Quanto maior LI, mais “gordas” sairão as letras do cartaz. No 
programa usamos o valor 2 (veja a figura exemplo), gerando 
letras tipo “Marcos Maciel”. 

Nalinha 160 definimos aaltura das letras, até um máximo 
de 9 para impressoras de 80 colunas (cuidado: existem im- 
pressoras, como a Grafix MTA que aceitam um máximo de 
7) ou 14 para 132 colunas. 

Na linha 180, a variável WT define a textura da 
impressão, desde traços finos (WT=1) até traços cheios 
(WT=4) 

Rode o programa algumas vezes com parâmetros 
diferentes e mensagens curtas, para se familiarizar com seu 
funcionamento. 

Além da utilidade intrínseca da rotina, há uma lição que 
pode ser tirada deste programa: o MSX é um micro tão 
versátil e tão “USER FRIENDLY” que programadores 
medíocres (como é o meu caso), usando linguagens fáceis 
(como é o caso do Basic), podem gerar, rapidamente, rotinas 
que, em outra máquinas, exigiriam programadores de pri- 
meira linha, usando, no mínimo, linguagem assembly. 

Esta talvez seja a maior virtude do MSX e a razão do seu 
sucesso. 























































































































Pierluigi Piazzi é autor de vários livros para MSX, 
sendo diretor- editor da Editora Aleph. 








FORMATANDO ARQUIVOS 


DE TEXTO 


Por causa do seu baixo custo e da fa- 
cilidade de obtenção dos caracteres espe- 
ciais da língua portuguesa no seu teclado, 
os micros MSX têm tudo para se tornarem o 
equipamento perfeito para a elaboração de 
textos. Por isso é quase inexplicável a 
inexistência de um programa mais completo 
de processamento de textos que, além dos 
recursos convencionais de definição de 
margens, salto automático de linhas com 
transferência de palavras excedentes e 
alinhamento à direita, manipulação de blo- 
cos etc., aproveite as facilidades do teclado 
MSX, seja no controle do cursor ou na 
geração dos caracteres acentuados e 
cedilhas do português. 

Entre os processadores de texto 
disponíveis, o que mais se aproxima desse 
ideal é o SCED, normalmente usado na 
digitação de programas para posterior 
compilação. 

Suas grandes vantagens são traba- 
lhar em 80 ou 40 colunas de vídeo, com 
linhas de até 132 caracteres, aceitar todos os 
caracteres produzidos pelo teclado MSX e 
gravar os arquivos em formato ASCII puro 
(cada linha é gravada com os códigos 
ASCII de seus caracteres, seguidos por 0A e 
OD, correspondentes ao “linefeed” e ao 
“return”). Isso permite a geração de ar- 
quivos facilmente tratados por rotinas de 
impressão já disponíveis, como a PIP.COM 
caté mesmo a incluída no MSXWRITE, ou 
por rotinas especificamente elaboradas para 
a impressora em uso, como as paraa MTA e 
a LADY 80, jácomentadas nessa revista. De 
resto, os demais comandos de deslocamento 
do cursor, “scroll”, divisão e junção de 
linhas, busca e troca de palavras, gravação 
eleitura de arquivos e de pesquisa dos discos 
em uso, são no mínimo tão acessíveis e 
eficientes quanto nos outros processadores 
de texto. 

Em alguns aspectos, entretanto, o 
SCED deixa a desejar. 

Sua rotina de manipulação de blocos 
é trabalhosa: os blocos não são marcados, 
mas indicados por sua linha inicial e pelo 
número de linhas, e só podem ser copiados 
(sem opções de transferência ou 
eliminação). Mais grave, porém, é a impos- 
sibilidade de definição de margens e, por 


causa disso, a inexistência do salto 
automático de linha com transferência de 
palavra excedente e alinhamento à direita. 

Para a ausência do salto automático 
de linha, a solução é proceder como na 
máquina de escrever: dando “return” ao fim 
de cada linha. Com isso, o alinhamento à 
direita tornar-se-ia extremamente tra- 
balhoso, pois além do controle preciso do 
salto de linha, os espaços necessários teriam 
que ser inseridos manualmente entre as 
palavras. 

O programa aqui apresentado foi de- 
senvolvido exatamente para suprir a 
ausência de uma rotina de alinhamento 
automático no SCED, aproveitando a facili- 
dade de manuseio dos arquivos por ele gra- 
vados. Em princípio, ele funciona de modo 
semelhante à função de acertar parágrafos 
dos editores de texto baseados no 
TASWORD: a partir da definição inicial do 
número desejado de colunas por linha, cada 
parágrafo do arquivo original é formatado 
com alinhamento automático à direita, e o 
texto formatado é gravado em um novo 
arquivo (cuja extensão é o número de 
colunas usado na formatação). 

As situações interpretadas como 
início de novo parágrafo são as seguintes: 


-linha em branco; 

recuo de início de parágrafo (5 espa 

ços vazios); 

-linha iniciada com algarismo; 

-linha iniciada com hífen (“sinal 

de menos”). 

Os trechos a serem excluídos da 
formatação, por exemplo tabelas, deverão 
ser precedidos e seguidos por linhas que 
contenham apenas dois caracteres ASCII 
200 (GRAPH L no Hotbit ou LGraL no 
Expert). 

O programa foi escritoem MBASIC, 
por esse ser o único BASIC acessível ao car- 
tucho de 80 colunas da SHARP, e princi- 
palmente pela possibilidade de sua 
transformação em um programa com a 
extensão .COM, através do BASCOM, o 
que permite uma substancial aceleração do 
seu processamento. Para rodar em telas de 
40 colunas, deverá ser acrescentada a 
seguinte linha: 


GUSTAVO F. BAYER 


75 WIDTH 40 

A compilação através do BASCOM 
é bastante simples. Uma vez digitado e tes- 
tado o programa, ele deve ser gravado no 
formato ASC II, através do comando: 

<save “alinha.bas”,a>. 

Retornando ao DOS, comande: 

<bascom alinha=alinha>. 

O BASCOM analisará o programa, 
gravando um arquivo intermediário com o 
nome ALINHA.REL, encerrando com a 
mensagem de possíveis erros assinalados. 
Havendo erros, eles deverão ser corrigidos e 
o processamento pelo BASCOM deverá ser 
reiniciado. A seguir, comande: 

<link alinha alinha/n/e>, 

e o BASCOM compilará e gravará o pro- 
grama ALINHA.COM. (Para compilar 
outros programas, basta por 0 nome princi- 
pal desse programa no lugar do “alinha” dos 
comandos acima citados.) Para facilitar a 
adaptação do programa em BASIC MSX 
por quem não disponha do BASCOM, ele 
foi escrito sem aproveitar recursos exclu- 
sivos do MBASIC, tais como os laços 
WHILE - WEND ce a designação de 
variáveis por extenso. Por isso, basta digitar 
as seguintes linhas: 


75 CLEAR 500:MAXFILES=2:KEYOFF 
110 OPEN ENS FORINPUTASf1 
190 OPEN SA$ FOROUTPUTAS&2 


O programa em BASIC MSX é, en- 
tretanto, bastante mais lento que o programa 
compilado: apesar do tempo gasto com o 
acesso contínuo ao Drive ser o mesmo, O 
programa em BASIC MSX leva quase o 
dobro do tempo usado pelo programa COM 
no processamento de um arquivo de texto. 

Como observação final, é impor- 
tante registrar que esse programa não tem 
maiores pretensões que ser um “quebra- 
galho”. Afinal, ele foi desenvolvido por um 
mero usuário levado ao autodidatismóna 
programação pela insuficiência de 
utilitários para o processamento de textos. 
Sugestões e programas mais eficientes são 
benvindos, principalmente se algum defen- 
sor do”software nacional” desenvolver, fi- 
nalmente, um editor de textos à altura dos 
micros MSX aqui fabricados. 
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BUNRE ARA CLRAR RE RARES ARS CE RECA RESET TOO 
28 *t Forsatador de arquivos de texto ? 
34 Linguagem: MBASIC t 


MO CRIERERERALEERSLERSANtaLAsA rar Eras 
ao 


“ MMERESEREE INICIALIZAÇÃO tettss4as 
DIM PL$(48), TN(48) 

98 PRINT CHR$(12):FOR F=1 TO L8:PRINT * 
& ";:NEXT FSPRINT:PRINT"S FORMATADOR DE 
ARQUIVOS DE TEXTO 8":FOR F=1 TO 18:PRI 
NTºS ";:MEXT F:PRINT:PRINT:FILES:PRINT 
CHR$(7) 

180 PRINT CHR$(7):LINE INPUT "Arquivo a 
formatar 7 ";ENS:IF EN$="* THEN GOTO 1 

se 

118 OPEN"I",ML,ENS 

120 A=A+L3AS=NIDS(ENS,A,L) 

138 IF A$="" THEN SAS=ENS$:GOTO 168 

148 IF ASC)”,” THEN GOTO 128 

158 SA=A-L:SAS=LEFTS(EN$,SA) 

168 PRINT CHR$(12):LINE INPUT"Al inhamen 
to (direita) na coluna? “;CL$:1F CL$="" 
THEN GOTO 168 

178 CL=VAL(CL$) 

188 SAS=SAS+","+CL$ 

198 OPEN"O",h2,5A$ 

200 PRINT CHR$(12) 

218 * 488% VERIFICACAO DO ARQUIVO te4tt 

228 IF EOF(L)C)-! THEN LINE INPUTRI,LAS 
ELSE END 

238 IF EOF(1)O-1 THEN LINE INPUTAL,LCS 
ELSE LC$="" 

240 FP=B:1F LC$="" OR LC$=CHR$(288)+CHR 

H(288) OR LEFTS(LCS,5)=" * OR LEFTS 

(LC$,1)=CHR$(45) OR (LEFTS(LC$,1)>CHR$( 

47) AND LEFTS(LCS, L)CCHR$(58)) THEN FP= 

1 
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* GAME PAGK 1. 
* AGUARDEM: 
novos comandos para “envenen 


758 TA-LENILAS) 

268 IF LA$="* THEN GOTO 548 ELSE IF LAS 
=CHR$(208) +CHR$ (208) THEN GOTO 718 

278 IF TA=CL THEN BOTO 540 

288 IF TACCL AND FP=1 THEN GOTO 540 

298 IF TACCL THEN GOTO 628 

308 “138884 PALAVRAS EXCEDENTES MASALS 
318 CASLENÇLAS):PL$=*" 

328 CAS=NIDS(LAS,CA,1) 

338 IF CASCHR$(32) THEN PL$=CAS+PL$:CA 
=LA-1:60T0 328 

348 LB$SPLS+CHAS(32)+LB$ 

358 IF RIGHTS(LB$,1)=" * THEN LBSSLEFTS 
(LB$, (LEN(LB$)-1)):GOTO 358 

368 LASSLEFTS(LAS, (CA-1)): TA=LENILAS) 
378 IF LEN(LAS)DCL THEN BOTO 318 

388 IF LENILAS)=CL THEN BOTO 548 

398 * 4444 DECOMPOSICÃO DE LINHAS 48444 
400 FOR Es! TO 4B:PL$(F)="":TN(F)=B:NEX 
TF 

MB PL=8:CA=8 


428 PL=PL+1:AS=PL$(PL-1):IF A$=" " OR A 


438 CA=CA+I:CAS=NIDS(LAS,CA, 1) :PL$(PL)= 


PL$(PL)+CAS 
448 TM(PL)=IM(PL)+ 


458 IF CAS>CHR$(32) THEN GOTO 438 ELSE 
IF CAS=CHR$(32) THEN GOTO 428 

468 * PEESSLELIE ALINHAMENTO LESSLASEAS 
478 CP=CL-TA:IF CP=8 THEN GOTO 518 

488 PA=PL 

498 FOR F=1 TO CP:PLS(PA)=CHR$(32)+PL$( 
PA):PA=PA-LzIF PA=i THEN PASPL 

588 NEXT F 

SLB LAS="" 

528 FOR F=1 TO PL:LAS=LAS+PLS(F):PLS(F) 







O MELHOR SOFTWARE PARA O SEU MSX 


* VOX - Sintetizador /Digitalizador de Voz 
ESZx 81 - Emulador Sinclair ZX 81 
EDARQ - Super Editor de Arquivos em disco 
FLUXO DE CAIXA & CONTAS A PAGAR/RECEBER 

* MSX WRITE - O melhor Editor de Textos p/ MSX 
* EDDY 2 « Um poderoso Editor de Desenhos 

EMU - Editor de Músicas em partituras 

* NEMESIS - O paradigma dos jogos de ação 
283 -Mais de 28 10905 MSX 
com mais de 50 
seu micro! 





Super BASIG PLUS 






548 PRINT LAS:PRINTAZ,LAS 

558 IF LB$>"” AND FP=1 THEN LAS=LR$:LBS 
="":60TO 258 

568 IF LEN(LB$)=5CL THEN LAS=LR$:LB$="" 
:60TO 258 

570 IF LB$>*" THEN LAS=LES+ "4LC4 

588 IF LB$="" THEN LAS=LC$ 

598 LB$="":LC$="":1F EOF(1)()-1 THEN 60 
TO 238 

608 IF LAS>"" THEN TA=LEN(LAS):GOTO 248 
618 CLOSE:FOR F=t TO 47:PRINT'S ";:MEXT 
F:PRINT:PRINT"S FORMATACAO DE TEXTO CO 
NCLUIDA 4":FOR F=1 TO 47:PRINT"S *;3MEX 
T F:END 

628 * 444 COMPLEMENTACAO DE LINHAS tt4 
638 IF LC$)** THEN CA=O:PL$="": TC=0 ELS 
E GOTO 548 

648 CA=CA+I:CAS=NIDS(LCS,CA, 1) :PLE=PLO+ 
CAs 

658 IF CAS)CHR$(32) THEN TC=TC+:60T0 b 
se 

668 IF CAS=CHR$(32) THEN PL$=CHR$(32)+L 
EFTS(PLS, (LEN(PL$)-1)) 

678 IF CAS="" THEN PL$=CHR$ (32) +PLS 
688 IF TA+I+TCCL THEN GOTO 398 

690 IF TA+I+TEC=CL THEN LAS=LAS+PL$:TA= 
TA+I+TC: IF LEN(LC$)>TC+! THEN LCS=RIGHT 
S(LCS, (LEN(LCS)-(TC+1))) ELSE JF EGF(L) 
CI THEN LINE INPUTRS,LCS 

788 JF TA=CL THEN GOTO 540 ELSE GOTO 63 
8 

TB * tALtt LINHAS SEM FORMATACAO titts 
728 LAS=LC$:GOTO 758 

738 IF EOF(1) 6-1 THEN LINE INPUTRI,LAS 
ELSE GOTO 610 

748 IF LAS=CHAS(208)+CHR$(288) THEN GOT 
0 228 

758 PRINT LAS:PRINTAZ,LAS:GOTO 738 































encontrando, 





Procure nossos 
produtos apenas 
nos revendedores 
Frautorizados! Não os 
entre 
: em contato conosco! 
JGaranta a Integridade do 
seu equipamento usando 

apenas software de 
qualidade comprovada! 

Informatize a sua 

empresa com micros 
MSX. Consulte o nosso 
serviço de assessoria. 


SINTEVOZ 


Lendo artigos sobre a sintetização da voz, resolvi fazer um sintetizador para o MSX. Este 
programa é baseado na técnica de digitalização da voz, que converte um sinal analógico em 
digital, guardando-o na memória em formato binário para, em seguida, fazer o inverso, 
reproduzindo a voz. 


O PROGRAMA 
Utilizando o processador de som e o PPI, o programa funciona da seguinte forma: 


ROTINA 1 
Libera a RAM adicional (32k de memória) através da porta A8h da PPI. Liga o 
gravador, ressetando o bit 4 da porta AAh do mesmo. 

Começa, então, a parte mais importante do programa. HL é iniciado com zero, 
“DE' com a quantidade de bytes a serem gravados. Lê-se, no bit 7 da porta A2ha informação 
vinda do gravador, que pode ser O ou 1. Dependendo disso, o programa seta ou não o bit 7 
do registrador C. 

Depois, o programa faz uma rotação no mesmo, repetindo isto 8 vezes, até 
completar um byte, que é colocado na memória apontada por “HL”. O apontador HL é in- 
crementado e o DE decrementado, fazendo isto até que *'DE” fique igual a zero. 

Por fim, a rotina desabilita a RAM adicional, desliga o gravador e volta ao BASIC. 


ROTINA 2 
O funcionamento desta outra rotina é o inverso da primeira, pegando um bit de 
um byte da memória apontada por “HL” e joga-o para o processador de som, repetindo isto 
8 vezes para cada byte e depois até que 32k bytes sejam enviados para o procesador de som. 
Fazendo isto, o micro reproduz a voz anteriormente gravada. 


OPERAÇÃO 

Para fazer com que o programa funcione, digite a listagem do programa, tomando 
cuidado com os códigos em hexadecimal. Grave o programa e digite “RUN”. 
Ligue o gravador, pressionando: 

“PLAY” + 'RECORD". 

Aperte espaço e fale ao microfone (o cabo do motor e o do load têm que estar 
conectados ao gravador). 

Para que o micro reproduza a voz, digite “1”. Para outra gravação, digite '2” e para 
voltar ao BASIC “3º. 








Júlio Velloso é estudante da UCP, na qual cursa o 4º período do Curso de Ciência 
da Computação. Programa em Basic, Assembler Z80, Pascal e dBase NI, há 
quatro anos, nos equipamentos IBM-PC e, principalmente, MSX. E autor do 
programa utilitário de cópia BKP, comercializado inicialmente pela Ciberne e do 
Sistema Operacional BKP Disco, comercializado pela Paulisoft Informática. 








JÚLIO VELLOSO 


SINTEVOZ 
Por; Julio Velloso 


148 SCREENG:COLORA5, 1, 1:KEYOFF:DEFUSR=& 
HCBBG: DEFUSRI=HCOI8 

158 RESTOREZBB:FORA=BTD135:READAS: POKEM 
HOBBB+A, VAL ("khº+AS):NEXT:A=INP(kHAB): 1 

FA=&HABTHENPOKE&HCBOS , &HAA: POKE&HCB2D, & 
HAB: POKELHCGIA, HAA:POKERHCATA, LHAR 
168 PRINTSPC(15);"SINTEVOZ":PRINT:PRINT 
SPC(18);*Por: Julio Veltoso":PRINT:PRIN 
TEPRINT 

178 PRINT"- Coloque o plug do load e ti 
reo do save.":PRINT:PRINT"- Aperte 
“play” + “record'.” 

188 PRINT:PRINT:PRINT:PRINT:PRINTSPC(12 
); "APERTE ESPACO, * 

198 A=STRIG(O): IFA=BTHENI9BELSEA=USR (0) 

ze * 





SPEAK 





238 PRINT:PRINT:PRINTSPC(9)$"1 - Reprod 
PRINT:PRINTSPC(9);"2 - Outra 
Bravacao.":PRINT:PRINTSPC(9);"3 - Volt 
a ao BASIC." 

248 AS=INKEY$: IFAS=""THENZABELSEA=VAL (A 
$):0N À GOSUB 258,268,278:60T0 240 

258 A=USRI(8):RETURN 

268 SCREENG:RETURNLOO 

278 SCREENG:KEVON:END 

288 DATA F3,DB,AA,CR,A7,03,0A,3E 

298 DATA FF,D3,08,21,88,88,11,FF 

308 DATA 7F,0E,08,86,08,08,02,C8 

318 DATA 7F,28,84,CB,F9,18,82,CB 

328 DATA 89,CB,29,18,F2,71,18,23 

338 DATA 7A,03,28,E7,3E,FB,03,A8 

348 DATA DB,AA,CB,E7,03,0A,FB,C9 

358 DATA F3,3E,FF,D3,88,3E,87,D3 

348 DATA AB,3E,88,03,61,3E,08,03 

J78 DATA AB,3E,80,D3,A1,3E,81,D3 

388 DATA AB,3E,88,03,A0,3E,08,D3 

398 DATA AB,21,88,88,11,FF,7F,4E 

480 DATA 86,88,F3,CB,41,28,84,3E 

418 DATA BF,18,82,3E,88,03,A1,CB 

420 DATA 29,18,EF,23,18,7A,83,28 

438 DATA E6,3E,F8,03,08,3E,88,D3 

448 DATA AB,3E,88,03,AL,FB,C9,08 
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PROJETO MSXDEBUG 


PARTEI 





Frequentemente, ao abrir uma boa revista especializada em 
software, nos deparamos com bons programas, mas que, invariavel- 
mente, estão contidos em listagens quilométricas em Basic, con- 
tendo código em dezenas de linhas DATA. Imagine o trabalho e o 
desconforto de digitá-las utilizando apenas o editor Basic durante 
horas seguidas. Isso sem falar do código inútil como a parte 
montadora e a própria sintaxe da linguagem. Mesmo assim, dizem, 
um bom programa vale o sacrifício! Será? 

Que tal se todo esse trabalho fosse amenizado e esta fosse a 
última vez em que você tivesse que digitar partes dispensáveis? Que 
tal dispor de um editor rápido e versátil e que permita acessar 
qualquer parte da memória que o Basic não alcança? Que tal ter em 
mãos não só um editor, mas um sistema que possa ser expandido à 
medida que surgem as necessidades? 

Amigo leitor, é exatamente isso que propomos neste artigo. O 
MSXDEBUG é um programa que foi idealizado vizando ser 
complementado aos poucos. 

O programa consiste, basicamente, de meia dúzia de comandos 
que formam a base de um sistema integrado. Este sistema contém 
todas as rotinas necessárias à manipulação de arquivos em disco, 
rotinas de reconhecimento de comandos e várias outras sub-rotinas 
que serão úteis no futuro. 

Inicialmente, estão prontas as rotinas que formam a base do 
MSXDEBUG. São rotinas de manipulação de memória como 
DISPlay, EXECutar, MOVer e FILL (preencher com dado valor). 
Além dessas quatro, também temos o DiskSAVE e o DiskLOAD 
(DSAVE e DLOAD, respectivamente) que permitem salvar um 
bloco da memória no disco e carregar QUALQUER tipo de arquivo 
que esteja no disco, seja ele executável, seja ele binário ou mesmo 
o próprio sistema operacional. O último comando implementado é 
o comando DIR que mostra o diretório do disco sem maiores 
detalhes. 

A utilização do MSXDEBUG é bem fácil e acessível, princi- 
palmente àquele que está iniciando no assembler. 

Após a digitação da listagem, salve o programa e rode-o. 

Automaticamente, o seu MSXDEBUG será montado e, caso 
haja algum erro de digitação, será mostrada a linha em que ocorre o 
erro. Não esqueça de iniciar o programa como mostra a listagem, 
pois, se ocorrer erro, será indicada outra linha que não é a correta. 
Ao final do processamento, volte ao DOS e digite MSXDEBUG. A 
tela deverá conter a mensagem inicial e o prompt esperando que seja 
digitado alguma coisa. 

A seguir está uma descrição mais detalhada do que faz cada 
comando. 


16 CPU 





A SÉRGIO DURIC CALHEIROS 


1) DISP endereço 

Mostra o conteúdo da memória dado por endereço. Para avançar 
ouretroceder, utilize as teclas dos cursores. Estando na posição 
desejada, pressione <CR>. Neste momento, você poderá alterar 
o conteúdo desta memória ou se deslocar ao longo dos códigos 
livremente. Para alterar utilizando diretamente o teclado, pres- 
sione <CR> novamente. Repita sempre que precisar mudar o 
modo de edição. Para sair, basta pressionar <ESC>. 

2) EXEC endereço 

Executa este endereço sem break-points. 

3) MOVE início, fim, destino 

Move um bloco na memória. Início deve ser menor que fim. 
4) FILL início, fim, dado 

Preenche uma área de memória especificado por início e fim, 
com o dado fornecido. 

5) DIR 

Mostra o diretório do disco de forma simples. 

6) DSAVE nome. ext, início, fim 

Salva o bloco limitado por início e fim no disco com o nome 
nome.ext. Salva qualquer coisa em qualquer lugar. 

7) DLOAD nome.ext endereço 

Carrega qualquer arquivo, desde que esteja no disco e o coloca 
no endereço dado por endereço. Nestes três comandos não é 
possível especificar o drive. Será utilizado aquele que estava 
habilitado antes de executar o MSXDEBUG. 

8)DOS 

Encerra as atividades no MSXDEBUG e retorna ao DOS. 








As mensagens de erro do sistema são mostradas na hora devida. 
Para vê-las, experimente passear pela RAM do micro a partir do 
endereço 100H, que é onde os programas com extensão COM são 
carregados. Examine também a área reservada para as variáveis do 
BASIC. Para examinar um programa qualquer, preencha uma área 
de memória com um dado valor (usualmente 0) e use o comando 
DLOAD. Você tem cerca de 50K livres ou mais, dependendo do 
número de drives utilizados. Aprenderemos como utilizá-los inte- 
gralmente e também criar programas que os utilizem. 

Infelizmente, esta versão só serve para micro computadores 
equipados com disco. Está sendo preparada uma versão que utiliza 
o cassete e que, breve, será publicada. Nos próximos números, 
começaremos a analisar as rotinas do MSXDEBUG e aprenderemos 
como implementar rotinas e a utilizar outras. Aguardem as no- 
vidades. 





Sérgio Duric Calheiros é estudante da PUC-RJ, onde cursa 
Engenharia de Computação, desde 1985. Auto-didata em 
Basic e Assembler e algumas outras linguagens, programando 
em micros da linha MSX e PC. 








100 CLS:KEV DEF 
LI PRINT “NSXDERUG VERSAO 1.8º 

128 GERAL=O 

138 PRINTSPROSRAMA SENDO CONVERTIDO! 
140 OPEN "NSIDERUG.COM" AS Ri LEN=1 
158 FIELD 4,1 AS AS 

168 FOR Ii=i TO 384 

178 LOCATE 8,4:PRINT “CONTAGEM: "1% 
180 S0MA=A 

198 FOR gt=1 TO 8 

208 READ K$:K=VAL(PAHP+KS) :SOMA=SONA+K 
218 LSET AS=CHR$(K):PUT RL 

220 NEXT J% 

238 READ K 

248 GERAL=GERAL+SONA 

258 IF KOSOM THEN PRINT “ERRO Nó LINH 
AP; IXELB+298:END 

268 NEXT IL 

278 READ K 

288 IF KOBERAL THEN PRINT “ERRO NO PRO 
GRAMA” :END 

298 CLOSE:END 

308 DATA C3,89,87,CD,C9,08,CD,9A,tt12 
318 DATA 88,CD,FA,28,7D,20,88,00,798 
328 DATA ED,58,89,8D,12,47,ED,52,982 
338 DATA 44,4D,08,E8,54,50,13,ED,824 
348 DATA BO, CY, CD,C9,88,CD, 9h, 08, 1158 
358 DATA CD,FA,08,22,7D,00,E0,58,963 
368 DATA 39,80,CD,33,08,38,18,20,542 
378 DATA GE,00,ED,58,99,80,47,ED, LO34 
388 DATA 52,44,40,24,89,8D,09,E5,657 
398 DATA Z4,70,90,09,D1,EB,03,E0,873 
400 DATA R8,09,24,88, BD, ED, 5,89, 1044 
SLB DATA 0D,07,ED,52,44,4D,28,7D,8L1 
420 DATA BD,03,ER,ED,RO,C9,CD,9A,1224 
438 DATA 08, CD,FA,08,CD,72,81,03,986 
440 DATA C9,87,E9,CD,FA,0A, 21,91, 1084 
458 DATA QD,11,92,00,01,24,08,36,288 
468 DATA 20,ED, BO, CD, 9h,08,24,89,991 
ATO DATA OD,CD,E9,08,22,83,00,FD,890 
480 DATA 21,15,88,CD,74,F9,CD,8F,855 
498 DATA Q8,CD,F2,81,CD,ES,BA, 11,923 
SBB DATA 87,85,24,70,05,C0,61,82,594 
518 DATA 38,F2,CD, AF ,B1,18,E0,E9, 1165 
528 DATA CD,18,08,C3,08,82,11,08,565 
538 DATA 08,C0,74,82,11,65,05,C0,657 
548 DATA 24,08,CD,08,82,CD,81,82,473 
558 DATA 11,88,08,CD,84,02,09,11,758 
568 DATA 88,01,CD,7A,82,3€,06,00,736 
578 DATA L1,0R,C3,F2,81,3E,0B,CD,744 
588 DATA 11,08,C3,F2,01,CD,01,02,674 
598 DATA FD,21,28,88,0D,74,F9,03,1105 


680 DATA C9,87,86,17,C5,CD,0B,82,652 
618 DATA CD, 18,08,C1,18,F6,C3,08,981 
620 DATA 02,06,18,3E, 1F,CD,11,08,358 
638 DATA 18,F9,09,11,91,80,20,83,814 
640 DATA BD,22,85,8D,CD,89,08,13,434 
658 DATA 06,08,00,21,17,0E,C5,20,544 
668 DATA 83,80,7E,32,85,8D,CD, 58,751 
678 DATA 82,00,23,21,85,8D,CD,FR,893 
488 DATA 07,CD,FR,87 ,83,80,675 
698 DATA 23,22,83,00,C1,18,DF,AF,828 
780 DATA 12,00,77,08,11,91,8D,CD,738 
718 DATA 24,08, 11,17,8E,C3,24,08,343 
728 DATA DO,36,08,2€,FE,28,D8,FE, 1877 
DATA FF,CS,FE,7F,08,0D,77,08,1376 
748 DATA C9,86,88,4F,TE,AT,CB,DA, 783 
758 DATA 89,23,28,F6,E8,78,28,28,941 
748 DATA 23,23,18,F,7E,23,66,6F,712 
778 DATA 37,09,28,83,80,A7,0,52,928 
788 DATA 22,83,8D,C9,2A,83,8D,19,598 
798 DATA 22,83,80,C9,2A,83,80,22,599 
889 DATA 7F,BD,CD,E9,82,CD,39,08,853 
BIB DATA CD,EB,8A,CO,EC,04,11,93, 1856 
E28 DATA 85,21,77,85,CD, 61,82, DC, 686 
B30 DATA AF,01,18,EC,20,81,0D,11,637 
B48 DATA B8,88,47,ED,52,22,81,80,678 
858 DATA C9,28,81,80,11,08,80,19,435 
368 DATA 22,81,8D,09,01,24,7F,8D, 768 
878 DATA 22,83,80,C0,48,08,C3,81,654 
BEBO DATA 02,26,81,8D,11,87,00,19,235 
898 DATA ED,58,83,80,C3,33,08,20,771 
988 DATA 81,8D,ED,5E,83,8D,C3,33, 
918 DATA BE,2A,7F,80,22,83,80, 
928 DATA C9,08,CD,7A,82,22,81,00,697 
938 DATA JE,08,CD, 11,88, 11,69,05,433 
948 DATA C3,24,08, CD, 48, 8E,11,69,644 
958 DATA 85,C0,24,08,86,08, 11,7F,415 
968 DATA B5,CD, 24,08, 18, FB, CD, 52,808 
978 DATA 85,C0,39,08,CD,E8,0A,CD,930 
980 DATA 95,84,11,01,85,21,77,85,493 
998 DATA CD,61,82,0C,AF,B1,18,EC,968 
1880 DATA D1,01,24,7F,BD,22,83,8D,778 
LBL8 DATA C3,40,08,D1,CD,48,88,C3,954 
s828 DATA 22,05,24,7F,80,11,08,08,262 
1038 DATA A7,ED,52,ED,58,83,80,EB, 1193 
1848 DATA C3,33,88,2A,7F, BD, 11,89,641 
1858 DATA 08,47,ED,52,ED,58,83,80,958 
1848 DATA C3,33,88,CD,D1,82,28,11,738 
1076 DATA CD,40,08, !1,01,08,CD,84,635 
1888 DATA 82,3€,10,CD,14,88,C3,39,577 
1898 DATA BE,CD,40,88,06,87,3,10,395 
1188 DATA CD, 11,08,18,9,11,07,00,522 
LL DATA CD,78,82,CD,39,08,C0,42,873 





1128 DATA 83,DA,62,04,C0,76,04,11,667 
1130 DATA 69,85,CD,24,08,06,08,11,393 
1148 DATA 7F,85,CD,24,08,10,F8,03,843 
LISB DATA 39,08, CD, DF 82,28, 11,CD,760 
1158 DATA 48,88, 11,81,08,CD,70,82,422 
LIT DATA 3E,1D, CD, 11,08,C3,39,08,587 
1188 DATA CD,48,08,06,07,3E, 1C,CD,588 
1198 DATA 11,08,10,F9, 11,87,08,CD,522 
1288 DATA B4,82,00,39,88,03,E0,03,839 
1218 DATA CD,42,83,08,62,04,00,76,917 
1228 DATA B4,11,69,85,C0,24,08,03,578 
1238 DATA 39,88,C0,53,03,00,CD,48,836 
1248 DATA BB,11,88,08,CD,7A,82,CD,578 
1258 DATA AC,82,3E, 1E,CD, 11, 0B,C3,694 
1288 DATA 39,88,CD,01,82,28,12,C0,747 
1278 DATA 48,08, 11,81,00,CD,84,82,432 
1288 DATA 11,7F,05,0D,24,08,03,39,653 
1298 DATA 88,CD,48,08,86,87,11,83,452 
1398 DATA 85,C0,24,08,18,F6,11,87,545 
1318 DATA 08, CD,7A,82,CD,39,08,C3,797 
I328 DATA D8,83,CD,DF,82,28,12,C0,912 
1338 DATA 40,08, 11,01,00,CD,7A,02,422 
1348 DATA 11,83,85,C0,24,08,03,39,657 
1358 DATA GB,CD, 48,08, 06,07,11,7F,448 
1368 DATA 85,CD,24,08,10,F0,11,87,545 
1378 DATA BO, CD, BA 82, CD.39.0B.C3.607 
1388 DATA EA,83,CD,40,0R, 11,08, 08,542 
1398 DATA CD,84,82,CD,89,02,3€, F,O24 
1488 DATA CD, 11,88,C3,39,08,C0,48,765 
1440 DATA QB, CD, 18,08,2A,7F,8D,22,467 
1428 DATA 83,80, 11,88,88,19,22,7F,355 
1430 DATA QD, CD, BE,82,11,08,88,CD,461 
1440 DATA 7A,82,03,89,02,FE,28, DB, LAGE 
1458 DATA F5,CD,48,08,F1,2A,83,00,952 
1448 DATA 77,E5,20,81,80,22,83,8D,710 
1478 DATA 3E,8D,CD, 11, 0R,CD,OR,82,526 
1488 DATA E1,22,83,8D,3A,81,8D,6F,714 
1498 DATA 3A,83,80,95,6F,3E,88,95,681 
1588 DATA 47,3E,1D,CD, 11,08, 18,F9,640 
[518 DATA CD,39,08,3E,1C,C9,FE, 38,866 
1528 DATA DB,4F,3E,66,89,79,D8,FE,1235 
1538 DATA 61,38,82,06,20,4F,3E,46,612 
1548 DATA R9,79,D8,FE,61,38,03,FE, 1186 
1558 DATA 41,08,87,C9,CD, CE, 04, DE, 1288 
1558 DATA 21,25,0E,77,F5,CD,48,08,728 
1578 DATA FI, CD, LL, BB, CD,39,08,CD,952 
1588 DATA EB,8A,CD,CE,04,38,F8,21,994 
1598 DATA 25,8E,23,77,23,36,08,F5,539 
1588 DATA CD,48,8B,F1,CD,11,08,CD,959 
1618 DATA FA,88,70,24,83,8D,77,E5,917 
1620 DATA 2A,81,00,22,83,00,3E,80,437 
1638 DATA CD, 11,08,CD,08,02,E1,22,710 
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1848 DATA 83,80,11,69,05,CD,24,08,523 
1658 DATA JA,81,0D,6F,3A,83,80,95,662 
1450 DATA A7,28,89,47,11,7F,85,CD,641 
1670 DATA 24,0, 10,F6,C0,39,08,3E,646 
1688 DATA 10,C9,34,81,8D,6F,34,83,729 
1698 DATA 80,95,47,C8,47,3E, 1, CD,895 
i788 DATA 11,08,10,F9,09,0R, 18,4C,608 
1718 DATA 08,8D,1C,1C,1C,1C,10,00,153 
1728 DATA 18,00, 1F,1E,1D,1C, 08, 18,185 
1738 DATA BD, 1F,1E,1D,1C, 08,00, 1C, 147 
1748 DATA 1C,1C, BB, 1D, 1D,1D,00,E5,372 
1758 DATA Q1,8C,02,80,01,B6,01,CF,71O 
1768 DATA BL, DD,BL,CA,B2,03,83,DB,643 
1778 DATA R3,EA,03,32,04,82,04,32,358 
1788 DATA BA,38,03,3,83,8E,03,E4,496 
1798 DATA 03,04,03,63,03,00,83,21,484 
1888 DATA 17,0E,6,06,36,3F,23,18,222 
1810 DATA FE,CD,66,07,CD,46,87,11,868 
1820 DATA BR,0D,0E,19,8C,CD,05,08,461 
1838 DATA 11,5C,08,0E,11,C0,85,08,358 
1840 DATA R7,11,86,88,C2,86,0B, 11,621 
1850 DATA 5C,08,CD, 18,08,06,03,0F,516 
1868 DATA 32,C7,0D, 11,BC,0D,CD,24,721 
1878 DATA 85,11,59,8C,CD,24,88,8E,395 
1888 DATA 12,C5,CD, 05,88, C1,87,08,993 
1890 DATA 10,E5,CD, 18,08,86,03,16,518 
1980 DATA DE, CD, 9h, 08, CD, B6,89,CD, 1142 
1910 DATA 66,87,C0,9A,08,CD,FA,08,939 
1928 DATA 22,89,8D,11,5C,08,CD,4A,572 
1938 DATA 07,CD,3F,06,11,45,8C,C2,573 
1940 DATA B6,0R,CD,72,87,ED,5B,89,808 
1958 DATA 8D,05,0E,19,8C,CD,05,88,487 
1958 DATA 11,5C,B8,CD,48,86,D1,C8,793 
197 DATA 21,80,00,19,EB, 18,EA,05,892 
1988 DATA RE, BF, CD, 85,88 ,R7,D1,C9,832 
1998 DATA E5,05,C5,0, 14,CD,05,00,883 
2088 DATA FE,02,11,18,8C,CA,06,08,520 
2810 DATA C1,D1,E1,87,C9,CD, 86,86, 1484 
2828 DATA CD, 66,87, CD,4A,07,CD,3F 868 
2838 DATA 06,28,03,C0,3E,07,11,5C,424 
2040 DATA BR, CD,05,07,11,80,08,0E,376 
2058 DATA 19,8C,C3,85,00,C0,85,88,615 
2868 DATA CD,66,87,00,72,87,CD,5D,938 
2870 DATA 06,24,89,00,E0,58,88,80,678 
2880 DATA CD,33,08,38,18,88,11,88,487 
289 DATA 08,01 ,80,08,ED, BO, L1,5C,651 
2100 DATA 08,CD,26,87,20,89,80,11,464 
2118 DATA 88,08,19,22,89,00,18,09,578 
2428 DATA 11,5C,88,C3,18,07,2h,88, 516 
2138 DATA 0D,ED,58,89,80,87,ED,52,977 
2148 DATA E5,CD,DE,B6,CD,F6,86,01,1325 
2158 DATA 06,06,C8,3A,CB,18,18,FA,773 
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2158 DATA 13,CD,33,08,08,11,03,88,733 
2178 DATA C3,86,08,21,E1,00,06,08, 580 
2180 DATA 36,3F,23,18,FR, 1, BB, BD,636 
2198 DATA GE, 19,8C,CD,05,00,11,5C,378 
2208 DATA 08,0 ,11,03,05,88, 1E,00,261 
2218 DATA GE, 18,CD,05,08,FE,82,08,787 
2228 DATA CR, 3C,CR,1D,09,E5,05,05,1335 
2238 DATA GE, 16,CD,85,00,3C,11,03,518 
2248 DATA BR,CA,B6,BB,C1,D1,E1,C9, 1858 
2258 DATA E5,05,05,8E, 18,C0,05,08,879 
2258 DATA B7,11,F3,88,C2,86,08,C1,858 
2270 DATA DI,EL,09,E5,05,C5,0E,15,1389 
288 DATA CD,05,08,87,11,28,80,C2,648 
298 DATA 86,88,C1,01,E1,09,E5,05,1287 
308 DATA C5,0E,13,CD, 85,88, C1,Di,B42 
318 DATA E1,C9,21,EC,80,E5,01,13,1165 
328 DATA 36,88, 81,18,88,ED,B8,21,525 
330 DATA EB,80,11,5C,00,01,25,00,384 
2348 DATA ED,B8,11,50,88,09,21,17,779 
2358 DATA GE, L1,E1,80,01,08,08,E0,516 
2368 DATA B8,C9,21,17,8E,11,85,0E,483 
2378 DATA Q1,08,00,ED,88,3E,28,12,548 
2388 DATA 13,01,03,08,ED, BO, AF ,12,629 
2398 DATA C9,ED,78,06,80,3E,28,32,719 
2400 DATA B8,F3,21,91,80,11,92,8D,786 
2418 DATA Q1,FF,08,36,00,ED,B8,21,756 
2420 DATA 17,0,54,5D,13,36,20,81,320 
2438 DATA 08,88,ED,B8,CD,72,87,8F,925 
2448 DATA 32,09,FC,ED.7B,86,88,CD, 1842 
2458 DATA FA,OA,CD, BF ,0E, !1,68,8C,616 
2468 DATA CD, 24,08, CD, 18,08,03,28,719 
2478 DATA 08,ED,78,86,08,CD, 18,08,614 
Z488 DATA C3,28,88,CD,FA,BA, FD, 21,986 
2498 DATA AG,F9,DD,21,3€,00,CD,74, 1046 
2588 DATA F9,CD,18,08,C3,88,08,11,781 
2510 DATA R6,80,C0,09,88,AF,12,11,627 
2528 DATA B6,8D,CD,24,08,11,18,08,499 
2538 DATA C3,24,88,AF,ED,6F FE, BA, 1829 
2548 DATA 38,82,06,87,06,38,12,13,546 
2558 DATA C9,21,85,80,23,CD,FB,07,878 
2568 DATA CD,FE,87,26,CD,FB,87,03,1164 
2578 DATA FB,87,80,10,10,10,1D,08,374 
2588 DATA CD, 18,08, 11,5C,8C,CD,24,682 
2598 DATA 08,C0,62,8A,CD,27,89,FE,831 
2688 DATA 28,28,ED,A7,28,EA,CD,4E, 133 
2610 DATA 88,78,21,82,8C,23,23,18,389 
2628 DATA FC,28,28,7E,23,66,6F,CD,917 
2638 DATA 40,88,03,09,87,E9,22,87,898 
2648 DATA BD,ED,56,87,8D,21,02,80,744 
2658 DATA 06,81,E8,7E,EB,A7,28,24,846 
2668 DATA FE,28,28,28,FE,61,38,02,767 
2678 DATA D6,28,BE,23,13,28,ER,7E,891 


2580 DATA A7,23,20,FE,BA,JE,FE,FF, LIZA 
2698 DATA ED,5E,87,8D,28,0C,11,31,794 
DATA 80,03,06,88,7E,21,31,00,444 
DATA EE,A7,C2,06,BE,EB,C5,21, 1078 
DATA 25,0E,R1,28,00,ER,ED, BA, 732 
DATA C1,09,C0,27,89,07,08, 11,1023 
DATA BA,08,C3,86,88,CD,9A,86,728 
DATA CD, 86,85,C0,9A,08,CD,FA, 1170 
DATA 88,22,89,80,E5,CD,90,08,788 
2778 DATA CD,FA,08,22,88,0D,D1,CD, LO6S 
2780 DATA 33,08,11,9,08,DA, 06, BR, 483 
2798 DATA C9,CD,9A, 08, CD, FA, 08,22, 1065 
2808 DATA 89,8D,CD,94,08,CD, FA, BB, 988 
2818 DATA 22,88, 8D,ED,SR,89,0D,CD,869 
2820 DATA 33,08,DO,11,9E,0B,03,06,657 
2838 DATA BR,C2,FA,08,3E,1D,C0,11,776 
2848 DATA 28,E5,22,85,8D,CD,E7,07,863 
2858 DATA E1,C9,C0,27,89,11,80,0B,845 
2868 DATA CA,06,0B,CD,38,09,21,08,525 
2878 DATA B8,22,80,8D,21,12,0E,7E,379 
2888 DATA 7E,67,28,23,FE,28,28,1F,725 
2898 DATA CD,65,89,11,9E, 08, DA, 06,725 
2988 DATA G8,CD,78,09,23,18,E8,21,672 
2918 DATA 25,0E,7E,A7, CB, 6, 28,FE,B36 
2928 DATA 28,00,23,7E,18,F9,09,28,893 
2938 DATA BD,8D,09,11,12,0E,7E,FE, 784 
2948 DATA 38,23,28,FA,28,7E,A7,28,749 
2958 DATA BF ,FE,20,28,8C,FE,61,38,768 
2968 DATA 82,06,28,17,13,23,18,ED,58 
2978 DATA 28,AF,12,23,81,28,08, 11,321 
2988 DATA 25,8E,ED,B8,09,47,FE, 38, 1038 
2998 DATA DB,3E,46,B8,D8,78,FE,3A, 1188 
3088 DATA 38,85,FE,41,08,D6,17,D6, 1047 
3018 DATA Z0,47,09,E5,21,80,8D,ED, LOSS 
3028 DATA 6F,23,ED,6F,E1,C9,CD,27, 1164 
3838 DATA 89,06,88,7E,A7,CA,27,00,567 
3840 DATA FE,2E,CA, 12,06, 11,17, 0E,584 
3858 DATA 7E,4F,A7,28,27,FE,28,28,777 
3048 DATA 23,FE,2€,28, 1F,FE,61,38,813 
3878 DATA 82,D6,28,CD,D4,09,12,13,711 
3880 DATA 23,10,E5,06,03,7,FE, 20,781 
3898 DATA 28,5E,A7,28,58,FE,2E,28,772 
3180 DATA 29,03,12,04,3E,20,12,13,395 
3118 DATA 10,FA,7E,FE,2E,28,18,08,759 
3128 DATA 06,03,18,48,4F ,E5,05,11,639 
3138 DATA 04,88,21,58,00,7E,89,C0,817 
3140 DATÁ 85,88,47,23,20,F7,D1,E1,932 
3158 DATA 79,09,23,06,83,7E,A7,28,699 
3168 DATA 21,FE,28,28,1D,FE,20,28,714 
3178 DATA 1F,A7,28,1C,FE,61,38,02,675 
3188 DATA D6,28,CD,04,09,12,23,13,744 
3198 DATA 7E, 10,EA, FE, 28,28, 0F ,A7 884 





3288 DATA 28,00, L1,AA, OE, C3,06,0B, 462 
3218 DATA 3E,28,12,13,18,F0,11,25,451 
3228 DATA 0E,81,28,00,E0,80,C9,21,694 
3238 DATA 05,0E,7E,11,04,0B, FE, 20,629 
3240 DATA CA,86,08,A7,CA,B6,08,11,622 
3258 DATA 17,0E, 1,08, 80,ED,80,23,494 
3268 DATA 01,03,00,ED,B8,3E,1D,CD,713 
3270 DATA 11,06, 11,05,0E,C3,24,88, 386 
3288 DATA 20,2€,2F,50,70,3F,24,38,517 
3298 DATA 34,58,50,28,30,22,08,CD, 585 
3388 DATA 18,08,21,25,0E,22,8F,QD, 389 
338 DATA 36,20,3E,3E,CD,11,08,3E,585 
3320 DATA SF CD, L1,08,CD,CD,0A, FE, 1882 
3330 DATA RD, 28,42,FE,1D,28,04,FE, 700 
3348 DATA 88,28,15,CD,DD,0A,A7,28,704 
3358 DATA EB,20,8F,80,28,22,8F,80,666 
3360 DATA 11,F3,0A,CD,24,08,18,07,761 
3378 DATA 47,FE,20,38,07,3E,83,88,1037 
3388 DATA 78,38,01,CD,DD,8A,FE,28, 1107 
3398 DATA 30,C6,3E,1D,CD, 1,08,78,694 
348 DATA CD,11,88,20,8F ,8D,70,23,578 
3418 DATA 22,8F,00,18,82,3€,1D,CD,688 
3420 DATA 11,88,3E,28,CD,11,08,20,397 
3430 DATA BF ,8D,36,00,09, LE,FF, BE, 710 
3448 DATA B6,CD,05,00,87,28,F6,FE,939 
3458 DATA 1B,CA,B3,87,09,11,25,0E,684 
3460 DATA 2A,8F,8D,A7,ED,52,7D,09, 1018 
3470 DATA IE, FF, GE, 06,CD,85,08,87,698 
3488 DATA 28,F6,09,1D, 10, 20,20, 1D,638 
3498 DATA 1D,880,21,47,08,11,74,F9,526 
3508 DATA 81,34,88,ED,B0,C9,CD, 16,896 
3510 DATA 08,CD,24,08,03,09,07,3E,728 
3528 DATA 8C,FD,21,80,08,C3,74,F9, 1054 


38 DATA D5,11,21,88,C0,24,88,D1,735 
IB DATA C9,00,04,88,E8,7E,EB,47,987 
58 DATA CA,FD,21,BC,88,C0,74,F9,1252 
& DATA 13,18,F1,70,92,08,70,93,1018 
3578 DATA C9,F0,21,E6,09,03,74,59,1286 
3588 DATA FD,21,33,8A,03,74,F9,F3.1150 
3598 DATA ED,73,99,F9,31,F0,FA,08, 1381 
3588 DATA DE,AB,32,9B,F9,E6,FC,D3,1534 
3610 DATA AB,88,C0,96,F9,08,3A,96, 108 
3628 DATA F9,03,08,88,ED,75,99,F9,1398 
3638 DATA C9,FD,E9,09,80,08,00, 00,988 
3640 DATA 08,88,08,DE,AB,E6,FQ,D3, LO68 
3658 DATA A8,0D,E9,41,72,71,75,69,1136 
3668 DATA 76,6F,20,89,60,65,67,64,775 
3578 DATE é0,08,44,61,64,6F,73,28,631 
3680 DATA 69,6E,73,75,66,69,63,69,858 
3698 DATA 65,6E,74,65,73,08,44,61,788 
J708 DATA 64,6F,28,69,60,65,67,61,757 
3718 DATA 6C,08,4E,6F ,6D,65,20,69,644 
3728 DATA 40,65,67,61,60,88,53,65,781 
3730 DATA 6D,28,61,72,71,75,69,76,805 
3740 DATA 6F,73,08,44,69,72,65,74,738 
3758 DATA 6F,72,69,6F,28,63,68,65,777 
3768 DATA 69,6F 08,4D,65,60,6F,72,728 
3778 DATA 49,61,20,64,69,73,78,6F,777 
JJBR DATA 6E,69,76,65,60,28,69,6E,789 
3790 DATA 73,75,66,69,63,69,65,6E 854 
3880 DATA 74,65,88,4E,61,6F,28,63,634 
3810 DATA 4F,6E,73,69,87,6F,28,66,789 
3820 DATA 65,63,68,61,72,28,4F,28,698 
3838 DATA 61,72,71,75,69,76,6F,00,775 
3848 DATA 45,72,72,6F,28,64,65,28,673 
3858 DATA 60,65,69,74,75,72,61,88,758 





3848 DATA 45,72,72,6F,28,64,65,28,673 
3870 DATA 67,72,61,76,61,63,61,6F,836 
3888 DATA BR,43,6F,6D,61,6E,64,6F,785 
3890 DATA 20,69,6E,45,78,69,73,74,804 
I988 DATA 65,6E,74,65,08,41,72,71,728 
3918 DATA 75,69,76,0F,28,69,6E,65,799 
3928 DATA 78,69,73,74,65,6E,74,65,884 
3938 DATA BB, 20,20,80,53,49,53,08,303 
3940 DATA 40,53,58,20,44,65,62,75,664 
3958 DATA 67,28,56,65,72,73,61,6F,759 
3968 DATA 20,31,2E,30,8D, 04,43, 58,345 
3970 DATA 55,28,20,20,38,31,2F,38,394 
3980 DATA 39,08,03,87,22,81,83,81,314 
3998 DATA 66,01,73,81,AF,05,7D,86,538 
ADGO DATA B1,66,08,00, 00,80, 08, 08,7 
4810 DATA 08,00, 00, 08,00, 08,08,00,8 
4020 DATA 00,00, 00, 00,00, 80,00, 00,0 
4038 DATA 08,00, 00, 00,08, BO, 00,08,0 
4840 DATA 00,00, RO, 00,0, A, BA, 00,0 
4850 DATA 00,00, BO, BE, BO, 08, 00,08,8 
4860 DATA RO, 00,00, 08, 00, RO, 00,08,O 
AR70 DATA BO, 00,00, 00,00,00,88, BO, E 
4888 DATA H8,00,44,4F,53,08,4D,4F,386 
4890 DATA 56,45,08,46,49,4C,4C, 80,458 
S100 DATA 45,58,45,43,08,44,49,53,517 
ALIO DATA 50,00,44,49,52,08,44,53,454 
4120 DATA 41,56,45,88,44,4C,4F ,A1, 588 
4130 DATA 44,08, FF, BO, 00, BA, BO, 80,323 
ALHO DATA 276483 








CONVITE AOS NÃO SOCIOS DO MISC 


si você um usuário profissional ou de lazer. convidamos a participar do melhor clube de MSX do Brasil. A proposta funda- 


mental do MISC é dar apoio a nível de informação, serviço e produto. 


Esta retaguarda é proporcionada por uma jovem equipe de especialistas em MSX. O Jornal do MSX é uma exclusividade dos 
associados. Para ingressar no MISC você paga uma taxa única de Ncz$ 6,50 até o fim do congelamento. 

Pague com cheque nominal a EMBASS EDITORA LTDA. ou através de depósito no BRADESCO agência 0108 conta 141.184-5 
Ao fazer sua inscrição informe-nos se quer receber sua coleção-brinde de jogos em K7 ou disco 5 1/4. 


MISC -MSX INTERNATIONAL SERVICE CLUB 


Rua Xavier de Toledo, 210 - cj. 23 


01048 - São Paulo - SP - FONE: (011) 34-8391 e 36-3226 











CPUIS 





DUMP DE TELA GRÁFICA 
































JÚLIO VELLOSO 


E 















































































































































































































































Para o usuário que não possui uma impressora colorida, desen- 
volvi uma rotina que imprime uma tela gráfica com diversas 
tonalidades de preto, dando um aspecto muito bonito a sua tela, que 
antes, com os “dump's” comuns, só aparecia com apenas umacor e, 
em certos casos, quando o desenho exigia várias cores, ficava em 
parte cortado. perdendo muito na sua beleza. 

A ROTINA 

A rotina feita em assembler, ficando de B000h até BFELH, im- 
prime uma tela gráfica (modo “SCREEN 2”) em tamanho dobrado, 
utilizando 15 matrizes 2x2, substituindo as 15 cores do micro MSX 
por suas respectivas tonalidades de preto, como se fosse uma 
televisão preto e branco. 

Como a impressora GRAFIX MTA possui 480 pontos para a 
impressão gráfica e a tela no modo gráfico possui 256 pontos na 
horizontal, a tela impressa ficaria com 512 pontos, cortando, por- 
tanto, 3.072 pontos de sua tela. Se a impressão fosse correta, os 
usuários desta impressora ficariam prejudicados. Então, eu optei 
pela impressão deitada, que são 192 linhas que impressas, por esta 
rotina, ficaria com 384 pontos podendo, portanto, ser efetuada. 

MONTANDO A ROTINA 

Para entrar com a rotina, digite o programa Basic da listagem 1 

e execute-o com o comando RUN. O programa irá montar a rotina 
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nos seus respectivos endereços e, em seguida, gravá-la em formato 

binário. Feito isto, o programa Basic não lhe será mais útil, podendo, 

portanto, ser apagado. Antes, é aconselhável testar a rotina. 
UTILIZANDO A ROTINA 

Para testar a rotina, entre com a listagem 2 e o programa montará 
uma tela com todas as cores do micro e em seguida efetuará a sua 
impressão. 

Para imprimir outras telas gráficas, como as geradas pelo GRA- 
PHOS III, por exemplo, ou pelo comando BSAVE “NOME”, em 
disco, entre com o seguinte programa em Basic: 

10 SCREEN 2 

20 BLOAD “NOMEDA TELA”, R (ou, S-conformeocaso) 
30 BLOAD“DUMP .EXE”,R 

E bons desenhos! 


Júlio Velloso é estudante da UCP, na qual cursa o 4º período 
do Curso de Ciência da Computação. Programa em Basic, 
Assembler, Pascal e DBase III, há 4 anos, em equipamentos 
que utilizam o microprocessador Z80 e PC, principalmente o 
MSX. 

É autor do programa u o de cópia BKP, comercializado 
inicialmente pela Ciberne e do Sistema Operacional BKP 
Disco, comercializado pela Paulisoft Informática. 

















Programa para impresao de tela 
Por: Julio Velloso 


68 FORI=ITO4BL:READAS:POKE AHBDFF+I, VAL 
(AH +AS):NEXTI 

78 BSAVESDUNP, EXE”, HEERO, AHBFEL 

88 END 

180 DATA DE,AS,47,E6,38,4F,CR,39,C8,39, 
78,Eb,FB,81,03,08,3E,18,CD,A5,8,3E,41,C 
D,85,8,3E,8,C0,85,8,C0,61,BF,30,EA,F3,2 
1,E,BF,E6,F,5F,16,0,19,7E,21,CE,BF 

118 DATA 77,6,20,21,F8,0,05,6,8,E5,05,C 
D,5B,RE,3A,E8,BF,30,32,E8, BF, CI ,EL,10,F 
8,AF,32,E8,BF,11,8,8,A7,ED,52,C1,18,EB, 
C3,8!,BF,6,C0,11,F8,8,CD,9C,BE,CD 

128 DATA SE, BE,E5,05,C5,CD,AD,BE,CI,DI, 
E1,7D,E6,7,FE,7,28,1,19,23,18,E6,09,3E, 
18,CD,A5,8,3E,48,CD,AS,8,78,CD,A5,0,7A, 
CD,A5,8,09,05,E,8,6,8,CB,17,C8 

138 DATA 19,18,F8,79,01,09,CD,A2,BE, DB, 
98,09,70,F3,03,99,70,E6,3F,03,99,F8,C9, 
F5,30,E0,BF,A7,CA,CA,BF,47,F1,17,10,FD, 


CE,7F,28,17,E8,21,8,28,19,CD,90,BE,ES 
148 DATA F,21,CE,BF,5F,16,8,19,7E,4F,CD 
+ES BE, C9,ER,21,8,20,19,00,9C,BE,E6,FO, 
1, 1F,1F,1F,18,E3,0F,C5,C8,59,28,4,C8,8 
F,18,2,CB,FF,CB,51,28,4,0B,87,18,2,CR 
158 DATA F7,4F,38,DE,BF,A7,CA,C2,BF,47, 
79,1F, 1F,18,FC,4F FD, 7E,8,B1,ED,77,0,FD 
«23,AF,CL,CB,49,28,4,C8, BF, 18,2,CB,FF,C 
R,41,28,4,C8,87,18,2,C8,F7,4F,3A,DE 

168 DATA BF ,A7,CA,C6,8F,47,79,1F,1F,18, 
FC,4F,FD,7E,8,81,F0,77,8,FD,23,36,DF,BF 
,30,32,DF HF ,FE,C8,28,1,09,AF,32,DF,BF, 
FD,21,8,40,3A,DE,BF,3C,32,DE,BF,FE,4 
178 DATA 28,15,09,E5,05,C5,21,8,48,36,8 
514,1,40,1,0,38,ED,B0,C1,D1,E1,C9,AF,32 
«DE, BF,05,C5,1,88,1,FD,21,8,48,11,88,1, 
CD,78,RE,FD,7E,8,CD,A5,8,CD,A7 

188 DATA BF ,FD,23,8,78,81,28,F8,3E,A,CD 
5A5,0,C1,D1,FD,21,8,48,CD,61,BF,C9,CD,8 
7,8,08,6,8,FD,E1,18,FC, DB,A8,E6,FO,D3,A 
8,3E,A,CD,A5,8,3€,0,C0,A5,8,09 

198 DATA 79,03,9,8F,79,03,37,BF,F1,C3,8 
A,8E,7,5,8,9,7,5,0,8,0,6,4,2,8,3,1,8,8, 
8,8,0 


THUNDERSOF 
THE NAME OF MSX 
PEÇA O NOSSO SUPER 


CATÁLOGO GRÁTIS! 
TEMOS APPLE é TAMBÉM! 


socos. 1,00 
APUCATIVOS 3,00 
COPIADORES — 


crM. 2000 


PREÇO DO DISCO. 5,00 
PREÇODARITA 2,70 
CORREIO 2,80 
ENTREGA EM 24 HORAS + 
CORREIO 0,50 


PACOTE Nº1 


10 jogos — apenas 11,00 
(disco inclúido) 


PACOTE Nº2 
10 jogos — apenas 11,50 


(fita incluida) 


PACOTE Nº3 


MSX TOOLS le ll 
sucesso de vendas 


1 

28 * PROGRAMA TESTE 

3" 

4 COLORS,15, 15:SCREEN 2 

58 X=28:V=18 

68 FORC=ATOIS 

78 LINE(A, VI-(1+36, V+24) E, B:PAINT(LAO 
SY+LB),C 

88 1=1408: IFX)1BOTHENV=V+32:)=20 
98 NEXT 

188 BLOAD"DUNP.EXE* ,R 


Pá 


E be 
SUPER PACOTES 


1 disco cheio — 11,00 
2 disco cheios —20,00 


PACOTE Nº5 


Aplicativo + copiador — 
6,00 (disco incluído) 


PACOTE Nº6 


10 Aplicativos + disco — 


5,00 
apenas 28,00 





MSX BOOK Il - EDTRONIC - SCED 


LANCAMENTOS DO MÊS 





SUPER ASM ( CART C./LED E RESET ) 


A cada 5 programas escolha 1 grátis 


Para outros estados, os pedidos deverão ser feitos através de cheque 
nominale cruzado a MARCO ANTÔNIO TROVÃO VAZ, Rua Carvalho 


Alvim 278/501, Rio de Janeiro, RJ, CEP 20510. Tel: (021) 268-6360 
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REDEFININDO O 
MSXWORD 3.0 


Uma das grandes vantagens dos editores de texto baseados 
no clássico TASWORD inglês é a possibilidade de total redefinição 
dos caracteres impressos na tela, assim como dos respectivos 
códigos gravados e remetidos à impressora. Sua mais recente versão 
comercializada no Brasil, o MSXWORD 3.0, apresenta rotinas que 
facilitam a redefinição dos códigos emitidos por cada caracter, mas 
aalteração dos caracteres na tela continua sendo pouco aproveitada 
pelos usuários, já que o acesso à sua tabela binária é trabalhoso. 

O programa aqui apresentado busca facilitar o manuseio 
conjunto de todas as tabelas referentes a cada caracter. Ele é 
compatível apenas com o MSXWORD 3.0, já que essa versão, para 
facilitar a carga do programa, alterou os endereços de suas rotinas 
em assembler. 

Inicialmente, o programa pede que seja informado o caracter 
ou ocódigo ASCIl aser pesquisado. A seguir, ele apresenta, de cima 
para baixo, os 8 bytes que definem o caracter na tela de 64 colunas, 
os 8 bytes que definem o caracter na janela de 32 colunas, e, ao final, 
os códigos gravados e emitidos à impressora. Nessa tela de 
pesquisa, os bytes são apresentados de forma simplificada, elimi- 
nando-se os”zeros”, para facilitar o reconhecimento do desenho do 
caracter. Os códigos para gravação e impressão são apresentados 
em sua notação decimal. 

A pesquisa pode continuar através das teclas de direção: a 
tecla para cima avança ao topo da tabela (retornando em um 
caracter por toque); a tecla para baixo desce na tabela (avançando 
um caracter por toque); e as teclas esquerda ou direita solicitam a 
informação de outro caracter ou código ASCII a ser pesquisado. Os 
caracteres ASCII 208 a 223 não são apresentados por não estarem 
disponíveis para redefinições. 

Ao pressionar-se a tecla INS, surge a tela de trabalho, onde 
os bytes que definem o caracter na tela são apresentados em sua 
notação binária completa, onde os algarismos “1” representam os 
pontos que serão impressos na tela. Basta, então, acrescentar 
ou retirar tais algarismos para modificar-se o caracter no 
MSX WORD 3.0. 


Alguns cuidados, entretanto, devem ser tomados. Os ca- 
racteres da tela de 64 colunas ocupam apenas as quatro colunas à 
direita dos seus bytes. Para manter uma separação entre os 
caracteres, apenas as três últimas à direita devem ser utilizadas. 
Natela de 32 colunas, os caracteres ocupam todo o byte, mas apenas 
os seis à esquerda devem ser utilizados para manter-se o afas- 
tamento. Cuidado com o caracter ASCII 197, que define o cursor da 
janela de 32 colunas. 

Os códigos para gravação e impressão são alterados com a 
simples troca do respectivo número em notação decimal. É impor- 
tante observar aqui que cada caracter normal (sem o GRAPH 
acionado) emite uma sequência de três códigos. Essa quantidade de 
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códigos é suficiente para acionar-se a maior parte dos comandos de 
uma impressora. 

Isso permite utilizar caracteres praticamente nunca usados 
em textos, especialmente os do teclado CODE (Hotbit) ou shift/ 
RGRA (Expert), reservando-se os caracteres obtidos no 
MSXWORD 3.0 com GRAPH acionado, e que emitem quatro 
códigos, para os comandos mais extensos. 

Apenas uma observação: deve-se procurar incluir na 
sequência dos códigos de controle da impressora o código 32 
(espaço). Isso permitirá incluir o respectivo caracter em qualquer 
espaço da linha, sem perder o alinhamento à direita na impressão 
(principalmente quando se trabalha com todas as 64 colunas de 
texto). 

Combinando-se esses recursos de redefinição, torna-se 
possível criar caracteres de controle simbolizando na tela sua 
função, facilitando assim o controle visual do texto na tela. 

Uma vez efetuadas as modificações desejadas, basta colocar 
o cursor na última linha alterada da tela de trabalho e acionar repe- 
tidamente a tecla de função F2 ate aparecer a mensagem de erro. 
Com isso, as alterações estarão registradas na memória. Para retor- 
nar ao programa, aciona-se a tecla de função Fl, pedindo, então, a 
pesquisa de um novo caracter ou código ASCII ou simplesmente 
acionando-se <RETURN>. Para voltar ao MSXWORD 3.0 basta 
acionar ESC na tela de pesquisa. O último passo seria fazer uma 
cópia das alterações, através da opção “C” “do menu principal do 
MSXWORD 3.0, sem esquecer-se de ter feito antes uma cópia de 
segurança do MSXWORD 3.0 original. 





DICAS PARA A MTA 


















Sequência de códigos que simula o BS. 
Funcionamento: anula o avanço do papel no 
salto de linha; com isso, a linha seguinte será 
impressa sobre a anterior, permitindo a super- 
posição de caracteres (p.ex./e = para formar 4), 
sublinhamento e duplo (triplo...) toque. 
Restaura o avanço normal do papel no salto de 
linha. 

Avanço 1,5 ou duplo do papel no salto de linha. 
Avanço do papel em 2/3 no salto de linha, simu- 
lando sobrescrito para anotação de referências, 
notas, potências, etc. 

Avanço do papel em 1/3 no salto de linha, para 
imprimira linha normal abaixo do sobrescrito. 
(Para imprimir subscrito, as duas últimas 
sequências de códigos devem ser usadas na or- 
dem inversa). 


32,27,650 





32,27,65,12 





32,27,65,18/24 





32,27,65,8 





32,27,65,4 








Especialmente interessante é a simulação do negrito. 

Para tanto necessitamos inicialmente asimulação do BS na 
linha principal. No início da linha seguinte, precisamos da 
sequência: 

27,75,1,0, 
que prepara a impressora para a impressão de uma única coluna de 
pontos no modo gráfico. 

A seguir, precisamos da sequência: 

0,32,32 
que provoca o avanço de uma única coluna de pontos sem nada im- 
primir, saltando a seguir dois espaços. Com isso, basta repetir a 


ARRSRARA IRA RICA SETA tacada dad 1Bº;SPC(A);"ASC * 


palavra a ser impressa em negrito exatamente abaixo de sua 
ocorrência na linha anterior. 
Para imprimir negrito no início da linha, a sequência: 
0,32,32 
deve ser substituída por um caracter nulo, que emite apenas o 
código 0. 


Finalmente, não pode faltar o código 12, que provoca o 
avanço de página, permitindo assim a paginação da impressão na 
tela, antes da impressão (principalmente se for usada a simulação 
do BS). 


44880 !+B8C:A=B:FO 238 K$=INKEYS: IFK$=""THENZSO 


“4 Redefinidor de caracteres + 

“t e códigos de ispressão 

“ para o MSXHORD 3.8 t 

da Cibertron t 

CERRRREILERELES ORAS retas aa 
78 WIDTH4G:KEVA,CHR$ (38) +CHR$(21)+"run7 
B'+CHR$(13):KEY2,CHR$(13)+"poke"+CHR$(3 
B)+CHRS (30) +CHR$ (38) KEYS, "BO" :KEVA, "OO 
Br:KEYS,"OBBA" :KEYOFF 
88 K$=" ";LINEINPUT"OUAL CARACTER OU Có 
DIGO? “;L$ 
98 IFLEN(L$)=ITHENC=ASC(LS JELSEC=VAL (L$ 
) 
108 IFCC3ZTHENC=32 
118 IFC=>208ANDC(=223THENIFASC (K$)=38TH 
ENC=287ELSEC=224 
128 IFC=>255THENC=255 
138 CE=C:L$=CHR$(C) 
148 CLS:PRINTº CHR$ “;L$;SPC(T); "765432 


RR=BTOB+7:GOSUB296: NEXTR 

158 R=42752!+B8C;A=B:FORR=BTOR+7:GOSUBZ 
98:NEXTR 

168 IFC<=191THENC=EH9BBF+34 (C-32)ELSEIF 
C=>208THENC=kH9D9F +38 (C-224 JELSEC=EHASC 
P+(C-64) 84 

178 PRINT"POKE";€. 
188 PRINT"POK 1; 
198 PRINTºPOKE";C+2 
288 1FC=>-22839ANDE< 
KE";0+3;","sPEEK(C+3) 
218 IFASC(K$)=18THENPRINT OK. Feitas as 
aodificações, registre-as usando <F 
2> a partir da última linha":PRINT? a 
lterada. (Ft) reinicia o prograsa.";CH 
R$(38);CHR$(38) ;CHR$(38);:END 
228 PRINT'CURSOR p/pesquisar 
fuodificar":PRINT" 
o NSXNORD" 


;PEEKIC) 
PEEK(C+1) 
;PEEK(C42) 

22778 THENPRINT"PO 


INS p 
ESC retorna a 


240 IFASC(K$)=S1THENC=CC+1:CLS:GOTOLOB 

258 IFASC(K$)=38THENC=CC-1:CLS:6OTOLOB 

268 IFASC(K$)=18THENC=CC:LOCATER, 1: GOTO 
148 

27 IFASC(K$)=27THENKEVI,CHR$ (BHDB) KEY 
2,CHR$(&HDA) : KEYS, CHR$(12):LOAD"MSXNORD 
3.8º,R 

288 PRINTCHR$(38):GOTOBA 

298 AS=RINS(PEEK(A)) 

380 IFLEN(AS)<BTHENFORF=ITO(B-LEN(AS)): 
AS="B"+AS:NEXTF 

38 FORF=BTOLSTEP-1:B$(F)=MIDS(AS,F,1): 
IFB$(F)="BºTHENAS(F)=" " 

328 NEXTF 

338 C$="":FORF=BTOISTEP-1:C8=B$(F)+C$:N 
EXTF 

348 PRINTPOKE" ;A;",&b";: IFASC(K$)=18TH 
ENPRINTASELSEPRINTOS 

358 A=A+L:RETURN 


» TOYGAMES 


É TOVGAMES INFORMATICA DI: 
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SOL ICI TE LL uu] 
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DAL 


Calxa PúS 


INFORMATICA t€ 


DOS MELHOR 


HOUTIDADES  INTERHBCITOHAIS 


Care GRATIS 


— CEF: qalegi 





BL: Ja961 
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PACOTE GRÁFICO 
PARA PASCAL 


Apresentamos um pequeno pacote de procedures para o 
TURBO PASCAL com o qual os usuários desta linguagem poderão 
usar certos comandos que só encontramos no Basic do MSX. São 
comandos para a produção de sons (Play e Sound) e para recursos 
gráficos (Line, Circle, etc.), que, normalmente, não estão 
disponíveis em linguagens compiladas vindas de sistemas como o 
CP/M. 

O recurso mais usado do Pascal foi o INLINE, que nos 
permite colocar rotinas em linguagem de máquina dentro dos 
procedures e, assim, usar muitas rotinas da própria ROM do MSX. 

É importante ressaltar que os comandos gráficos criados 
utilizam o interpretador Basic da máquina. Logo, o complemento 
dos comandos e a velocidade de processamento é igual à do Basic. 
Cuidado para não cometer erros nos comandos, pois o interpretador 
apresentará a mensagem de erro e o controle do micro passa para o 
Basic. Portanto, sempre salve os programas antes de rodá-los, pela 
opção R do menu principal do Pascal. 

No processo usado é criado uma falsa linha de programa 
Basic e mandamos que o interpretador a cumpra. Devido a isto, esta 
falsa linha tem que ficar em uma área da memória acima da ROM, 
que também deverá estar totalmente ativada. Assim, foi definido 
uma variável para o complemento dos comandos, alocada no 
endereço $A000 e uma rotina em linguagem de máquina no 
endereço $C000, que fez a mudança dos slots, ativando as páginas 
da ROM. 


VAR SLOT: STRING[19] ABSOLUTE SBFFF; 
COMP: STRING[250] ABSOLUTE $9FFF; 
PROCEDURE SCREENO; 
BEGIN 
INLINE ($77/$00/$6C/500) ; 


INLINE ($21/$00/$A0/SDD/$21/ 


PAULO MARQUES FIGUEIRA 


Em outros comandos, como os de mudança de screen, são 
simplesmente chamadas as rotinas do BIOS. Note que os programas 
compilados em Pascal ficam no endereço $100 e, portanto, estão 
com as páginas de ROM desligadas. Mesmo assim, dispomos de 
rotinas, como a do endereço $30, que faz chamadas entre slots. Desta 
forma, o RST $30 foi muito utilizado. 

Na listagem 1 temos as procedures criadas e, nas demais 
listagens, temos exemplos de uso. Observe que a diretiva de 
compilação (*$I*), que faz a inclusão de fontes no programa, 
incluirá todos os procedures no seu programa, quer elas sejam 
usadas ou não. Assim, se preferir, grave as procedures no seu disco 
separadamente e só inclua as que for usar no seu programa. 

No caso do comando LINE, a única diferença é que o traço 
que liga as coordenadas dos vértices deve ser o token do sinal de 
menos. Observe os programas exemplos. 

Espero que, com isso, os usuários no MSX possam tirar 
melhor proveito desta linguagem, “envenenando” seus programas 
com os recursos do MSX. 

Até à próxima! 





Paulo Marques Figueira programa em Basic, Cobol, Pascal, 
dBase e Assembly, em micros da linha MSX. É o autor do 
programa Edtronic, comercializado pela Paulisoft, 
Softhouse para a qual desenvolve vários projetos. 





$E5/$73/5CD/$00/$00) ; 
END; 


PROCEDURE CIRCIE; 
BEGIN 
COMP :=COMP+CHR (0) ; 
INLINE ($21/500/5A0/SDD/521/ 
$11/$5B/$CD/$00/$C0) ; 
END; 


PROCEDURE LINE; 
EEGIN 
COMP :=COMP+CHR (0) ; 
INLINE ($21/500/$A0/SDD/$21/ 
$0E/$4B/SCD/$00/$C0) ; 


INLINE ($21/500/$A0/$DD/521/ 
$6E/$5D/5CD/800/8C0) ; 
END; 


PROCEDURE PAINT; 
BEGIN 











COMP ;=COMP+CER (0) ; 
INLINE ($21/500/$A0/$DD/$21/ 
$C5/$59/5CD/$00/SC0) ; 
END; 


PROCEDURE PSET; 
BEGIN 
COMP :=COMP+CHR (0) ; 
INLINE ($21/$00/SA0/SDD/$21/ 
SEA/557/8CD/$00/8C0) ; 
END; 


PROCEDURE VDPON; 
BEGIN 

INLINE ($F7/500/$44/$00) ; 
END; 


INLINE ($E7/$00/$41/800) ; 


PROCEDURE PRINTGRP ; 
BEGIN 

COMP ;=COMP+CHR (0) ; 

INLINE ($21/500/5A0/S7E/SFE/ 
$00/5CB/$F7/$00/$8D/ 
$00/$23/$18/5F5) ; 

END; 


PROCEDURE COLOR (CORI, CORF, CORB:BYTE) ; 
BEGIN 

MEM[SF3E9] :=CORI; 

MEM[$F3EA] :=CORF; 

MEM [SF2EB] :=CORB; 

INLINE ($F7/500/$62/500) ; 
END; 


PROCEDURE VPOKE (ENDE : INTEGER; DADO: BYTE) ; 


VAR ENDE1: INTEGER ABSOLUTE $A000; 
DADO1: EYTE ABSOLUTE $B002; 
BEGIN 
ENDEI :=ENDE; DADOI:=DADO; 
INLINE ($3A/502/$80/$2A/500/ 
SAO /$F7/$00/84D/$00) ; 
END; 


FUNCTION VPEEK (ENDE: INTEGER) : INTEGER; 
VAR ENDE1 : INTEGER ABSOLUTE $AO00; 

X: BYTE ABSOLUTE SAOO2; 
BEGIN 

ENDEI :=ENDE; 

INLINE ($2A/$00/SA0/ 
$F7/$00/$4A/500/ 
$32/502/SA0) ; 

VPEEK =X; 

END; 


PROCEDURE SOUND (REGISTRO, DADO: BYTE) ; 
BEGIN 

PORT [160] :=REGISTRO; 

PORT [161] :=DADO; 
END; 


PROCEDURE WIDTH (X: BYTE) ; 
BEGIN 

MEM[$F3B0) :=X; 
END; 


PROCEDURE CURSOR (X: BYTE) ; 
REGIN 

MEM[ SECA9] :=X; 
END; 


PROCEDURE FILES; 
(FOOMP:=""*. "1; FILES; *) 
BEGIN 
COMP:=COMPA4CHR (0) ; 
INLINE ($21/$00/$A0/SDD/521/ 
$2F/$6C/SCD/500/8C0) ; 
END; 


(*INICIO DO PROGRAMA*) 
BEGIN 
SLOT:=CHR ($DB) +CHR ($A8) +CHR ($F'5) +CER ($E6) 
+CHR ($F0) +CHR ($D3) +CHR ($A8) +CHR (SED) 
+CER ($21) +CER ($00) +CHR ($00) +CHR ($CD) 
+CER ($1C) +CHR (500) +CHR ($E'1) +CHR ($D3) 
+CHR (SAB) +CHR (SC9) ; 


COLOR(15,1,1); 
SCREENZ; 
COMP:=' (10,10) '+CHR($F2)+' (250,180),7,B'; LINE; 
A:sS; 
REPEAT 
STR(A,B); COMP:=' (128,80), '+B+,10'; CIRCIE; 
AI=A+S; 
UNTIL A>60; 

* (85,77) ';PSET; 

REVISTA CPU" ; PRINIGRP; 

(86,77)' ;PSET; 

REVISTA CPU” ; PRINTGRP ; 
“V15T255L3207CDCD”' ; PLAY; 


READ (A) z 
SCREENO; 


VARA: BYTE; 
(*$I MSXPACOT.PAS *) 


COMP:='"*.*""; FILES; 
FORA:=1 TO 40 DO BEGIN 
WIDTH (A) ; 
GOTOXY (1,1); DELLINE; 


END; 

FOR A:=1 TO 24 DO BEGIN 
GOTOXY (1,1); INSLINE; 
END; 
END. 


EXEMPLO 3 
VARW: BYTE; 
I: INTEGER; 
(451 MSXPACOT. PAS*) 
SCREENI ; 
WRITELN ("ESTOU FAZENDO. .. ESPERE...'); 
FOR I:=264 TO 976 DO BEGIN 
W:=VPEEK (1) ; 
VPORE (I, W OR (TRUNC (W/2) +TRUNC (W/4))) ; 
END; 


“% 4ºt; FILES; 
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Um programa indispensavel 
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ALFABETOS DO GRAPHOS III: 
APLICAÇÕES PRATICAS 


O programa editor gráfico Graphos III, versões 1.1 e 1.2, é um 
dos mais fáceis de se utilizar e um dos mais completos para a linha 
MSX. 

Um dos seus grandes recursos é o de poder editar alfabetos com 
uma simplicidade incrível. Quem tem, sabe. 

A edição de alfabetos permite que o seu uso não se restrinja só 
ao programa fonte (no uso de edição de telas), mas também permite 
sua utilização no BASIC e Assembly Z80 com diversas aplicações, 
por exemplo: redefinição do alfabeto do MSX, impressão, 
utilização em outros programas e mil coisas que sua fértil 
imaginação mandar. 


ORGANIZAÇÃO 

Quando o Graphos III edita alfabetos, ele grava os bytes dos 
caracteres na memória a partir dos endereços 9000H (versão 1.1) e 
9200H (versão 1.2). Os bytes são gravados assim: cada 8 bytes um 
caracter, cada byte corresponde a uma linha gráfica deste (são 8 
linhas), que, por sua vez, é formada de 8 bits e cada bit corresponde 
a um ponto que pode estar aceso (1) ou apagado (0). Veja figural. 
OBS: O sistema hexadecimal é representado por um número 
seguido de H, por exemplo, 9000H. 

Um arquivo de alfabeto tem aproximadamente 200H de 
extensão e pode ser deslocado por um comando BLOAD”xxxx”, 
deslocamento. O MSX faz esta operação adicionando ao endereço 
inicial o número após o BLOAD. 


Figura 1 
DBLILIILDO 
D10 00 & 10  1BITAPAGADO 4 BYTE 
10100181 8 BITS) 
pRoRD' Digi pi a era ces ) 
10100101 
10011001 
21000016 
[Eee 
T BYTE 
(8 BITS) 


28 CPU 


GUILHERME A. L. STLLK 


APLICAÇÕES 
1. Redefinição 
A redefinição do set de caracteres do MSX necessita de uma 
pequenarotinano BASIC, poisaredefinição não é feita por BLOAD 
“xxxx”, R, como muitos pensam. 
Oprogramautilizaa SCREEN 1 por ter um padrão de 8x8 pontos 
e dá VPOKEs na tabela de caracteres com os bytes do alfabeto. 
Quem tiver a versão 1.1 do Graphos, tem que mudar a linha 150 
de 9200H para 9000H. 
Figura 2 


18 REM REDEFINIDOR 

28 REM 

30 REM PARA À LINHA NSX 

48 REM 

58 REM GUILHERME A.L. DA SILVA 

68 REM GUARARAPES - SP 13/9/88 

78 REM 

80 KEY 1,ºSCREENI"+CHR$(13) 

98 SCREENL 

188 PRINT:PRINT:PRINT:FORI=1TO34:PRINTE 

HR$(1);CHAS (65+U) ;:V=V+L:NEXTI 

110 FOR 1=32 TO 255:PRINT CHR$(1);:NEXT 
I 

128 DEF FN A(X)=ASC(CHRS(X)) 18 

138 X=1:FOR J=1 TO 255 

148 FOR I=8 TO 7 

158 VPOKE FNA(X)+L,PEEK(&H9200+1+148) 

168 MEXT I:X=]+1 

178 NEXT 3 

188 FOR 1=32 TO 255:PRINT CHR$(1);:NEXT 
I 





Como o Basic é muito lento, isso pode ser feito em LM Z80. O 
programa da figura 2.1 faz isso e, para rodá-lo, dê RUN e carregue 
um alfabeto. Para quem possui o Graphos 1.1, comande POKE 
&hE020,&h90. Aperte ESC para redefinir. 

Figura 2.1 


18 REM REDEFINIDOR LH V 1.2 
28 REM GUILHERME A.L. DO SILVA 

38 REM PARA HSK 

“8 REM 

58 FOR I=&HEBO8 TO AHEQAB:READ AS:POXE 
I,VAL(C&H"+AS ) NEXT: DEFUSR=AHEQRO: A=USR 
(8) 

68 REM 

78 REM DADOS 

188 DATA 21,8C,E0,22,CD,FD,3E,CD,32,C0, 
FD,C9,FE,3A,CB,CD,6F,80,CD, 7B,00,CD,53, 
88,81 

118 DATA 08,08, 11,80,88,21,88,92,CD,5C, 
86,86,8F,21,31,E8,7E,CD,A2,88,21,10,F9, 
09,52,45,44,45,46,49,4E,49,44,4F ,BA,8D, 
4F,68,80,8D 








2. Impressão 

A impressão de caracteres especiais ou redefinidos só pode ser 
feita no modo gráfico de sua impressora (ver artigo sobre impressão 
em modo gráfico em CPU nº 1). O uso dele não é muito fácil porque 
a impressora trabalha com os bytes na vertical, devido às agulhas da 
cabeça de impressão e o vídeo do MSX na horizontal. Para corrigir 
isso, uma rotina tem que “tombar” o padrão de bits dos caracteres 
(figuras 3 e 4). 

Na rotina da figura 5 é feito exatamente isso, com o auxílio de 
uma pequena rotina em linguagem de máquina (figura 6) para 
agilizar o processo. 

Uma 2* rotina é utilizada para a impressão, que é composta por 
uma em Basic (figura 7) e uma outra em Linguagem de Máquina 
(figura 8). 

Figura3 BYTES NA PRINTER 
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Figura 4 
BYTES "TOMBADOS" 





Figura 5 


Figura 6 





18 INVERSOR DE ALFABETOS 

28 REM PARA O GRAPHOS III V 1,2 

38 REM 

40 REM PARA À LINHA SK 

58 REM 

68 REM GUILHERME A. L. DA SILVA 

70 REM GUARARAPES - 88/89/88 

B8 REM 

81 DATA 11,F8,97,86,88,C5,21,F8,C9,06,8 
8,10,17,C8,16,23,18,FA,C1,13,10,EF,C9 

82 FOR I=EHCOMO TO &HCABR+22:READ X$ : 
POKE I,VAL ("AHP+IS) 3 NEXT 

98 CLS 

95 REM - INVERTE 

18 FOR 1=8 TO 2047 STEP 8 

110 DEFUSA=4HCBO 

128 A=USR(B) 

138 H=hH9208+1:H$=HEXS (H) :LOCATE 18,18; 
PRINTºENDEREÇO FONTE :";H$ 

148 POKE ANCBBL,VAL ("AHPARIGHTS (H6,2)] 
150 POXE &HCOBD,VAL (*&H"+LEFTS(H$,2)) 

168 G=AHCBAB+1:6$=HEXS (6) :LOCATE 18,12: 
PRINT“ENDERECO DESTINO: "568 

178 POKE AHCBET,VAL (*&H'+RIGHTS(68,2)) 
188 POKE &HCBOS, VAL ("HP +LEFTS(65,2)) 
198 NEXT 

191 LOCATE 8,21:PRINT PRESSIONE QUALQUE 
R TECLA PARA CONTINUAR" ;:C8=INPUTS (1) 
195 REM REDEFINE 

208 KEY 1, "SCREENI"+CHRS (13) 

218 SCREEN 1 

228 CLS:LOCATEIO, O: PRINT"TESTES:PRINT:P 
RINT:PRINTSFOR 1=1 TO SL:PRINT CHR$(1); 

CHR$(654V) ;:V=V+L:NEXTI 

238 FOR 1=32 TO 255:PRINTCHR$(1);:NEXTI 

248 DEF FN A(X)=ASC(CHRS(X) 48 

258 X=13FOR J=! TO 255 

268 FOR 1=8 T0 7 

270 VPOKE FNA(X)+I,PEEK(LHCBOO+I +48) 

288 NEXT 12 X=X+ 

298 NEXT 9 

388 FOR 1=32 TO 255:PRINT CHR$(1);:NEXT 
I 











MFB97 LD DE,97FB 
Gs LD 8,08 

cs PUSH BC 
PRC) LD ML,C9FB 
Boop LD B,88 

14 LD A,(DE) 
17 RLA 


CBI6 RL (HL) 
3 INC HL 
10FA DINZ COBC 
ct POP BC 
13 INC DE 
10EF DINZ CO85 
co RET 





CPU 29 


Figura 7 


18 REM IMPRESSOR DE 

28 REM ALFABETOS 

38 REM 

40 REM PARA NSX 

58 REM 

60 REM GUILHERME AL, DA SILVA 
78 REM GUARARAPES-SP 09/89/88 
8a REM 


98 IF PEEK (&HEBOO)=1 THEN RESTORE 518: 


GOTO 258 

188 DATA 3E,88,32,F0,C4,FE, 13,2 
118 DATA 80,C0,03,22,C8,FE, 18,20 
128 DATA 06,3E,01,32,FF,C4,09,3A 
138 DATA FF,C4,FE,B1,CA,28,C8,3A 
148 DATA FB,C4,CD,A5,B,3E,00,32 
158 DATA FF,C4,C9,CD, AB, 08,28, FB 
168 DATA CD,B7,80,DB,21,00,C8,3A 
178 DATA FO,C4,47, 16,08, 1E,08,19 
180 DATA 10,FD,22,50,C1,E5,3E,1B 
198 DATA CD,A5,88,3€,48,CD,45, 08 
288 DATA 3E,08,CD,A5,08,3E,00,CD 
210 DATA AS,00,E1,06,FF,7E,22,52 


228 DATA C1,CD,AS,08,D8,23,18,F5 
238 DATA 21,08,08,C9 

248 FOR I=LHCOBO TO &HCG6E:READ V$:POKE 
I,VAL("RH"+4S) :NEXT:POKE AHEBOR, 1 

258 REM DEFINE PARAMETROS 

268 POKE 4HC4FF,8: "DESLIGA GRAFICO 

278 ES=1:“ESC 

280 DEFUSR=LHCARO: “DEFINE USR 

298 POKE AHFBRO, 255: INTERRUPÇÃO 

308 POKE &HF417,1:"PADRAO ABNT 

348 POKE &HC4FO,8: "CARACTERE INPUT 

320 VE=EHCOSL:POKE VB,8: PADRAO 

338 VE=AHCASC:POKE VE,8:"DE PONTOS 

340 REM PROGRAMA 

358 READ C$: FOR 1=1 TO LEN (C$)3A8=NID 
S(C8,1,1):1F A$="8" THEN POKE AHCBBI,27 
:80TO 488 

368 IF A$="+" THEN POKE &HCBBL, 19:60T0 
0) 

370 IF A$="2" THEN LPRINT CHR$(18) 6070 
sao 

380 IF AS=CHR$(1) THEN 1=1+1:H=ASC(NIDS 





(C8,1,1))-54:POKE&HCBBI ,H:GOTO AB 

398 POKE AHCBOL ASC(AS) 

400 A=USR(O) :V=PEEK(&HCAFO) : V2=PEEK (LHC 
AFF) 

ALO TF INCEYSSCHR$(27) THEN ES=ES+1 

420 IF ES/20 INT(ES/2) THEN 508 

430 REM REGISTRADORES 

440 PRINT TAB(LB!CARACTERE: *;CHRS(V);* 
—NO";y 

458 PRINT TAR(10);STRING$(21,º-*):PRINT 
TAB(16) "GRAFICU";:1F PEEK(ANCAFF) OI T 
MEN PRINT" DESLIGADO. ..*;USING* 

SE PRINT” LIGADO ...... "USING ;VZ 
AGO TS=HEXS(PEEKCAHCLSL) )+HEXS(PEEX (RH 
158)) 

ATO PRINT TAR(1O);ºINIC HL. o] 
486 ZL$=HENS(PEEK(AHCLS3) )+HEXS (PEER (RM 
c152)) 

498 PRINT TAB(LO);CINCHL 2... !;214 
508 MEXT:LPRINT CHRSIB) 
518 DATA"SAGUIA INFORMATICA+ 
INSORNÁTICO 


ABUIA 


Figura 8 


Com 3EM8 LD A,00 CAZCA JP 1,CO28 
CBBZ 32FAC4 (C4FB),A JAFOCS LD A,(CAFO) 
COB FELS 8 CDASBS CALL BRAS 
CR87 C2eDca NZ,CeaD Sega LD A,88 
COMA C322C8 cazz J2FFC4 LD (CAFF),A 
CAD FEIR 18 to RET 

COF 2086 NZ,CRL7 CDABOD CALL OUAB 
CBIÍ 3EBL A, 28FB JB 7,C828 
COI 32FFCA (CAFF),A CDB78B CALL BBB7 
ca6 9 DE RET E 

COLT JAFFCA A, (C4FF) 2108C8 LD HL,CAOA 
CRIA FERI a SAFOCA LD As(CAFO) 
2.1 UTILIZAÇÃO 

2.1.1 Rotina 1 


Para funcionar, é necessário que se carregue um alfabeto do 
Graphos III. Se sua versão é a 1.1, mude na linha 130 o valor da 
variável H de 9200H para 9000H. Rode o programa. Auto- 
maticamente, este “tombará” os bytes e os deslocará para os 
endereços C800H à DO00H. Na tela aparecerão os endereços que 
estão sendo lidos e os que estão sendo tombados. Após isso, 
redefinirá os caracteres para testar a operação. Grave com: 
BSAVE"INVTXT-1.ASM”,&HC800,&HD000 


2.1.2 Estrutura 


LINHAS FUNÇÃO 

10-80 Linhas REM 

81 Coloca a rotina Assembly na memória 

90 CLS 

100 Loop principal 

110-120 Chama assembly 

130 Define o endereço da tabela de bytes do alfabeto 

140-150 Indicam à L.M. onde encontrar os bytes do alfabeto 

160 Define o endereço onde os bytes “tombados” serão 
colocados 

170-180 Indicam à L.M. onde colocar os bytes 


190 Fecha o loop 





tD BA CêS2 CDASBB CALL GAS 
LD D,88 coss LD A,B8 
LD E,08 CESA POP HL 
ADD HL,DE Cosa LD E,88 
DINZ CAIF ceso LD As(HL) 
LD (C150),HL | CBSE LD (C152),H 
PUSH HL [0 CALL BHAS 
LD A,ik Cos RET C 
CALL G9AS Cas INC HL 
LD AMB CO66 DINZ CAD 
CALL BRAS CO68 ZIBOCA LD HL,CB0R 
LD A,08 CMB C9 RET 

191 Espera uma tecla 

195 Redefine 

210 SCREEN 1 

220-230 Imprime set de caracteres MSX 

250-290 Loop de redefinição 

300 Imprime parcialmente o novo set 

2.1.3 Variáveis 

H Início do alfabeto fonte 

G Representação hexadecimal de H 

Gs Representação hexadecimal de G 


FN a(x) Endereço do caracter na tabela de padrões da VRAM 
Carregue os dados invertidos na memória com 
BLOAD"INVTXT-1.asm”. Digite o programa impressor e rode. 
Enquanto estiver imprimindo, aperte ESC e verá, num passe de 
mágica, os misteriosos conteúdos dos registradores do Z80, HL 
(endereço dos bytes) e A (código ASCII do caracter), além de saber 
se o modo gráfico está ligado ou não. 
Na linha 510 existe um comando DATA para colocar men- 
sagens. 
Existem 3 caracteres de controle. São eles: 
- Caracter * (asterisco) - liga o modo gráfico 
- Caracter + (sinal mais)  - desliga o modo gráfico 
- Caracter % (porcentagem) - dá um line feed na impressora 








Nas linhas 320 e 330 é definido o comprimento do caracter 
(pontos na horizontal), valores de 1 a 8. 
Para interromper, aperte: 
CONTROL + SHIFT + LGRA + RGRA. 
Evite o CONTROL + STOP. 


2.2.2 Estrutura 


LINHAS FUNÇÃO 

10-80 Linhas REM 

90 Verifica se precisa colocar na memória a rotina 
em L.M. 

10-240 Rotina em L.M. 

250-330 Inicializa 

350-370 Lê mensagem e define caracteres de controle 

380 Converte caracteres gráficos e indica a L.M. 

390 Indica “a L.M. caracter comum 

400 Chama L.M. e lê registradores do Z80 

410-420 Espera ESC 

440-490 Mostra conteúdo dos registradores Z80 

500 Fim 

510 DATA da mensagem 


2..3 Variáveis 


cs String da mensagem 

AS String da letra a imprimir 
v Código ASCII do caracter 
v” Indicador do modo gráfico 
ES Indicador da tecla ESC 

z8 HL antes da impressão 
ZIS HL depois da impressão 


3. CONVERSOR 

O programa tem como objetivo converter alfabetos do Graphos 
(abreviatura Gra.) para o Print-X-Press (abreviatura P-X-P), que 
é uma Page Maker, ou vice-versa. As vantagens são claras: o 
Graphos tem um editor potente, fácil e com uma gama de 28 
alfabetos disponíveis no mercado; o P-X-P tem um editor super 
potente (tem recursos de animação por "filmation”, imprime os 
caracteres em um quadriculado na impressora com os bytes em 
hexadecimal, decimal e binário; fazendo, também, caracteres colo- 
ridos), mas não é de fácil utilização, além de ter um compilador que 
é uma “mão na roda”. 

Então, esse conversor é útil para os felizardos que possuem os 
dois programas. 


3.1 Funcionamento 


Opção 1 Permite ler um alfabeto do P-X-P, com a extensão 
.MVF (P-X-P) 

Opção 2 Lê arquivos com deslocamento 1 (P-X-P/GRA) e 
Z(GRA/P-X-P) 

Opção 3 Grava com parâmetros 1 (GRA/P-X-P) e 
2 (P-X- PY/GRA). 

Opção 4 Cria partícula .DAT, usado só para GRA/P-X-P. 

Opção 5 Mostra tabela de parâmetros 

Opção 6 Files 

Opção 7 Fim do programa 


Obs: Quando se quer utilizar o conversor do GRA para o P-X-P, 
deve-se adotar 1 como deslocamento e parâmetro e, quando se quer 
o contrário, adota-se 2. 


3.2 Como utilizar 
A conversão do GRA/P-X-P é feita do seguinte modo: 


- pressione 1 carregue um arquivo .MVF;, 
-pressione 2 carregue um alfabeto. ALF com deslocamento 1; 
- pressione 3 grave um arquivo com extensão .MVF com parã- 
metro 1; 
- pressione 4 dê o nome do arquivo acima gravado - agora sem 
extensão. 
Do P-X-P/GRA é a seguinte: 


- pressione 2 carregue um arquivo.MVF e com deslocamento 2 
- pressione 3 | grave um arquivo .ALF com parâmetro 2 


Obs: MVF é extensão do P-X-P; ALF é extensão do Graphos. 


3.3 Estrutura 

LINHAS FUNÇÃO 

10-19 Linhas REM 

20-23 Inicializa variáveis 

30-100 Menu 

110-120 Seleciona escolha 

130 Volta ao menu 

140 Fim 

150 Opção 1 

154 Recolhe dados 

155 Lê arquivo .MVEF (P-X-P) 

158-199 Retoma 

200 Opção 2 

210-230 Recolhe dados 

240 Lê arquivo D$ com o deslocamento D%(DE%) 

245-299 Retorna 

250 Opção 3 

252-258 Recolhe dados 

260 Grava arquivo GS iniciando em El% (P%) e 
finalizando EF%(P%) 

270-299 Retorna 

300 Opção 4 

310-320 Recolhe dados 

330-345 Grava arquivo .DAT 

346-349 Retorna 

350 Opção 5 

352-358 Imprime tabela 

398-399 Retorna 

400 Opção 6 

410-430 Diretório 

500-550 Rotina de tratamento de erros 

3.4 Variáveis 

ESQ Matriz dos parâmetros 

El%() Matriz do endereço inicial 

EF%Q Matriz do endereço final 

D%() Matriz do deslocamento 

Pã Parâmetro escolhido 

DE% Deslocamento escolhido 


ss Escolha 


PX$ Nome do arquivo na opção 1 
DS Nome do arquivo na opção 2 
Gs Nome do arquivo na opção 3 
PT$ Nome do arquivo na opção 4 


cpU31 


10 REM 

M REM CONVERSOR 

12 REM DE ALFABETOS 

13 REM 

14 REM PARA MSX 1,1 

15 REM 

16 REM GUILHERME A. L. SILVA 

17 REM 02-09-88 

18 REM GUARARAPES 

19 REM 

20 KEYOFF:CLEAR 200,8H9200:0N ERROR GOT 
O 500 

21 DATA DOFC,9200,DRIO, 99FF, 3EFC.C104 
22 FOR 1X=] TO 6: READ ES(IZ):NEXT 

23 FOR IX=1TO2: EIXCIZ)=VAL(CRH"+ESCIZ) 
) 3 EFRCIZI=VAL(CRH"+ESCIZ+2)) :DXCIZ)=V 
ALCCRH"SESC1Z+4) ) NEXT 

30 CLS:PRINT TAB(5);"H TRANSFORMADOR DE 
ALFABETOS 4º 

40 LOCATE 15,3:PRINT"MENU” 

50 LOCATE 10,6:PRINT"CII LER P-X-P* 

40 LOCATE 10.8:PRINT"CZ] LER ALFABETO” 
70 LOCATE 10,10:PRINT"C3] GRAVAR ALFABE 
To” 

80 LOCATE 10,12:PRINT"L4] CRIAR PARTICU 
La” 

90 LOCATE 10,14:PRINT"L53 TABELA” 

95 LOCATE 10,16:PRINT"C6] FILES" 

96 LOCATE 10,18:PRINT"L7] BASIC” 

100 LOCATE 15,21:PRINT"OPCÃO: “;:58=INP 
Ursa) 

NO IF SSCº1" OR 58)"7" THEN 100 

120 ON VAL(SS) GOSUB 150,200,250.300,35 
0,400,140 

130 GOTO 30 

140 CLS:KEYONSEND 

150 CLS:PRINTSPCC14);"OPCÃO 1:":PRINTEP 
RINT SPC(6);"LER ARQUIVO PRINT-K-PRESS" 
152 LOCATE 11,9:PRINT"NOME DO ARQUIVO: 
“ILOCATE 11,10: INPUT PXS 

154 LOCATE 6,13:PRINT"COLOQUE O DISCO N 






Srt 


O DRIVE Aº:AS=INPUTSCT) 

156 BLOAD PXS 

158 LOCATE 18,21:PRINT"OK“:AS=INPUTS(1) 
199 RETURN 

200 CLS:PRINT SPC(14); "OPCAO 2º:PRINTEP 
RINT SPC(4);"LER ARQUIVO COM DESLOCAMEN 
To” 

210 LOCATE 9,6:PRINT"NOME DO ARQUIVO: “ 
:LOCATE 9,7:INPUT OS 

220 LOCATE 9,11:PRINT"DESLOCAMENTO (1-2 
)ºELOCATE 9,12:INPUT DEZ:IF DEX (O) 1 AN 
D DEZ () 2 THEN 220 

230 LOCATE 6,16:PRINT"COLOQUE O DISCO N 
O DRIVE A“:AS=INPUTSCT) 
240 BLORD DS, DZ(DEX) 

245: LOCATE 18,21:PRINT “OK 
) 

249 RETURN 

250 CLS:PRINT SPC(15); "OPCAO 3: 
3PRINT SPC(TI):"GRAVAR ARQUIVO" 
252 LOCATE 11,6:PRINT"NOME DO ARQUIVO: 
“ILOCATE 11,7: INPUT 68 

254 LOCRTE 11,11:PRINT"PARAMETROS (1-2) 
= “SLOCATE 11,12:0NPUT PEIF PEC) OR PZ 
)2 THEN 254 

258 LOCATE 2,15:PRINT“COLOQUE O DISCO D 
ESTINO NO DRIVE A“:AS=INPUTS(1) 

260 BSAVE 6S,EIZIPZ) EFZLPZ) 

270 LOCATE 18,212PRINT"OK":AS=INPUTS(1) 
299 RETURN 

300 CLS:PRINT SPC(15);"OPCAD 4:"zPRINT: 
PRINT SPC(9);"GRAVAR PARTICULA.DAT” 

310 LOCATE 11,8:PRINT"NOME DO ARQUIVO: 
“aLOCATE 11,9: INPUT PTS 

320 LOCATE 6,14:PRINT"COLOQUE O DISCO N 
O DRIVE A":AS=INPUTSCI) 

330 OPEN PTS+".DTA” FOR OUTPUT AS R1 
340 PRINT RI,PTS+.MVF" 

345 CLOSE 4 

346 LOCATE 18.21:PRINT"OK":AS=INPUTSCI) 
349 RETURN 


= INPUTSCI 


“aPRINT 


DRIVE 5.1/4 SLIN COMPLETO 
“PLACA BO COLUNAS 
*+MODEN DE COMUNICAÇÃO 





*EXPANSOR DE SLOT (C/4 SLOTS) 





+% PACOTÃO EM DISCO: 100 JOGOS (ESCOLHER) + 5 APLICANNVOS + 10 DISCOS = 60,00 
SE PACOTÃO EM FITA: 100 JOGOS (ESCOLHER) + 5 APLICATIVOS + 7 FITAS = 60.00 


350 COLOR 3:CLS:PRINT SPC(15): “OPCAO 5: 
“EPRINTEPRINT SPC(9): “TABELA DE PARAMET 
ROS" 

352 LOCATE 0.5:PRINT STRINGS(39.º="):LO 
CATE 0,6:PRINT SPC(4)"PARAMETRO 1º;SPC( 
9): "PARAMETRO 2º:LOCATE 0,7:PRINT STRIN 
68(39,"-") 

354 FOR 12=0 TO 10:LOCATE 18,8+Z:PRINT 
* "3NEXTELOCATE 0,18:PRINT STRINGS(39, 
=")3LOCATE 0,20:PRINT STRINGS (39, 

356 LOCATE 3,9:PRINT"INICIO: DOFC":LOCA 
TE 3,12:PRINT"FINAL: DATO":LOCATE 3,153 
PRINTºDESLOC: 3EFC" 

358 LOCATE 23,9:PRINT"INICIO: 9200": LO 
CATE 23,12:PRINT"FINAL: 99FF":LOCATE 23 
+ 15EPRINT"DESLOC: 0104" 

360 LOCATE 17,19:PRINT"OK":AS=INPUTS(1) 
398 COLOR 15,1,1 

399 RETURN 

400 CLS:PRINTSPC(15);"OPCÃO 6: 
PRINTSPC(10) "ARQUIVOS DO DISCO! 
410 PRINTEFILES 

420 PRINT:PRINTEPRINTSPC(17)"OK":AS=INP 
urse) 

430 RETURN 

500 IF ERR=53 THEN LOCATE 10,19:PRINT"A 
RQUIVO INEXISTENTE" :PLAY“VIS07C4":RESUM 
E NEXT 

510 IF ERR=56 THEN LOCATE 13,19:PRINTN 
OME ILEGAL":PLAY “V1507C4":RESUME NEXT 
520 IF ERR=69 THEN LOCATE 13,19:PRINT"e 
rro de e/5":PLAY"vI507c4":RESUME NEXT 
530 IF ERR=68 THEN LOCATE 11,19:PRINT"D 
ISCO PROTEGIDO" :PLAY“VI507C4":RESUME NE 
XT 

540 IF ERR=66 THEN LOCATE 13,19:PRINTºD 
ISCO CHEIO" :PLAY"VI507C4":RESUME NEXT 
550 LOCATE 15,19:PRINT"ERRO "sERRSPLAY" 
VI507C4":RESUME:NEXT 


PRINT: 











“GABINETE P/DRIVE COM FONTE FRIA 
* INTERFACE DUPLA P/DRIVE 















SOLICITE NOSSO CATÁLOGO DE PROGRAMAS PARA FAZER A SUA ESCOLHA. ATENDEMOS TODOS OS ESTADOS EM 24 HORAS VIA SEDEX 






PARA FAZER SEU PEDIDO ENVIE CHEQUE NOMINAL COM CARIA DETALHADA PARA A. NASSER. 


RIO DE JANEIRO: RUA GONZAGA BASIOS 411/203 — VILA ISABEL — RJ CEP 20541 — TEL (024) 2340775 





FILIAL CURITIBA; AV 7 DE SEIEMBRO 3146 LOJA 20 — SHOPPING SEIE — CURMIBA — PR — CEP 80010 — 1EL 232-0399 





32 CPU 













EQUIPAMENTOS PARA MSX 


Driver MSX 5 1/4 

Driver MSX 3 1/2 

Video Station 

Interface p/ Drive 

Cartão 80 Colunas 

Modem 

Monitores de Vídeo 
Gabinete e Fonte p/ Driver 
Ponta Discos “Acrílico” 100 Discos 
Mesa para Computador 
Mesa para Impressora 


SUPRIMENTOS 
Disquetes 
A Ui 
Formulários Contínuos 
Capas Protetoras p/ Equipamentos 


LITERATURAS 
Livros 100 Dicas 
Livros 50 Dicas (EM LANÇAMENTO) 
Livros Programação Avançada 
Livros Astrologia 


ECTRON ELETRÔNICA LTDA. 
Rua Dr. Cesar, 131- Metrô Santana -S.Paulo/SP 


TEL.: (011) 290-7266 


ABASTEÇA O 


SEU MSX 
NA EGTRON. 






— Fitas de Vídeo 
* Na Ecatron você encontra o último 
lançamento “'MPO” em videocassete 
“Curso de Basic MSX”' acompanha livro. 
* “Dominando e MSX” 


SOFTWARE 

* D.Base Ferramenta Profissional p/ 
manipulação de banco de dados. 

* Super Calc: A mais famosa Planilha de 
cálculos. 
(Ambos com suporte técnico e reposição de 
versão) 


APLICATIVOS 


Os mais potentes do mercado 


JOGOS 


Temos a coleção completa inclusive os 
últimos lançamentos. 


Solicite nosso catálogo inteiramente 
GRÁTIS. 





' BUTTY SPRITE 


O programa que apresento é um editor de sprites com vários comandos que irão auxiliá-lo na confecção de sprites de 16x 16. 

Este programa chama-se Butty Sprite e a sua versão é a 1.0. Sua operação é simples e a sua digitação um pouco cansativa. 
Depois de digitado e gravado em disquete ou fita cassete, rode o programa com o comando RUN. 

Para mover o sprite dentro do quadro de desenho, use as setas que movimentam o cursor e, para marcar ou apagar um ponto do sprite, 


use a barra de espaços. 


ALEXANDRE C. DULLIUS 


Para ter acesso aos comandos, deve-se teclar, primeiramente, a tecla Fl. 


Os comandos disponíveis no Butty Sprite são os seguintes: 


HOME/CLS - Limpa o sprite, apagando-o da memória e da 
tela. 

INSERT - Pinta toda uma linha. 

DELETE - Apaga toda uma linha. 

ESC - Sai do programa. Nesta opção, o programa irá 
solicitar confirmação e, em caso'positivo , o 
programa acessa o Basic. 

CONTROL + A - Inverte todo o sprite. 

CONTROL + B- Faz com que todo o sprite seja deslocado uma 
linha para cima. 

CONTROL + C- Faz com que todo o sprite seja deslocado uma 
linha para baixo. 

CONTROL + D- Faz com que todo o sprite seja deslocado uma 
coluna para a direita. 

CONTROL + E- Faz com que todo o sprite seja deslocado uma 
coluna para a esquerda. 

CONTROL + F- Faz uma cópia do bloco 1 sobre os blocos 2, 3 
e 4.0 conteúdo dos blocos 2, 3 e 4 é perdido. 

CONTROL + G - Faz umacópia do bloco 1 sobre o 3 e do bloco 


2sobreo 4.0 conteúdo dos blocos 3 e 4 é 
perdido. 


É posse cocecsocecocessceo seco seees 
2" x HUTTY-SPRITE'S 16x16 * 

3 * x By:Alexandre Cardoso Dullius 
4** Rua Lindolfo Collor 111 x 
x Sapiranga RS CEP:93900 x 

6 X Revista CPU “quia Inf. LTDA £ 
PARAR Cesc secs o ces desc coesa o sea sedes 

8 FORAEITOIG:KEYA, "" :NEXTA:GOTO6S 

9 * CTRHA 

10 GOSUB9S: Ag="CTRL+A” :GDSUB6Z:GOSLBI22 
:L=9:FORC=41 TOL62ZSTEPS: K=D:L =| +1 :FURD=1 
6TOLSESTEPS: K=K+1 

11 IFPOINT(D+5,C+5)=14THEN INE (D+1,C+1) 
—(D+8,0+8),1,BF:PRESET(K+17,L+17) ,1=P(K 
+L)=B:60TOIS 

12 LINE(D+1,C+1)-(D+8,C+8) , 14,BF:PRESET 
(KE17,L+17) ,15:P(KsL)=1 

13 NEXTD,C 

14 GoTueBs 

15 * EL 

16 GOSUE95:A$="ESC" -GOSLBA2:E=155:F=186 
236-15:A$="CONFIRMA(S/N)" :GOSLBAZ 

17 EB$=INPUTS(1): IFE$="S"THENEND 

18 IFR$="N"THENSS 

19 GoToL7 

22 * DEETE 

21 GOSUE9S:A$="DELETE" :GOSUB6Z:FORD=16T 


CONTROL + H- Lista estes comandos no vídeo. 

CONTROL +I- Lista estes comandos na impressora. 

CONTROL +J- Lista os dados do sprite em hexadecimal na 
tela. 

CONTROL +M- Listaos dados do sprite em hexadecimal na 
impressora. 

CONTROL +N- Inverte coluna. 

CONTROL + O - Inverte linha. 


Para ler o sprite, digite este pequeno programa: 


10 SCREEN 2,2 : FOR A=1 TO 16 : READ A$,B$20 
CS=CS+CHRS (VAL (“&H”+AS) ) 

30D$=DS+CHRS (VAL (“&H”+B$)) 40 NEXT A : 
SPRITES (1) =C$+D$50 PUTSPRITEO, (127,97),15,1 
: GOTO 50 

6ODATAFF, FF,80,1,80,1,80,1,80,1,80,1,80,1,80, 
1,80,1,80,1,80,1,80,1,80,1,80,1,80,1,FF,FF 


OLSBSTEPS:LINE(D+,V+1)—(D+6,V+48) , 1, BF: 
NEXTD 

22 C=INT((Y-40)/8)+1:FORZ=1TOL6:P(Z,C)= 
B:PRESET(Z+17,C+17),1:NEXTZ 

Z3 GoTueS 

24 * INSERT 

25 GOSLB9S:A$=" INSERT" :GOSUBGZ:FORD=16T 
OLZESTEPB:LINE(D+L,Y+1)—(D+8,V+8) ,14,BF 
:NEXTD 

26 C=INT((Y-40)/8)+1:FURZ=1TOL6:P(Z,C)= 
1:PRESET(Z+17,0+17), 15:NEXTZ 


29 GOSUE9S:28="HOME/OLS" :BOSUB42: GOSUBI 
z2 

30 LINE(14,14)-(40,38),1,BF:LINE(14,14) 
—(40,38) ,2,B:L INE(15,40)-(145, 170) ,1,BF 
:LINE(15,40)-(145,170) ,4,B:FORD=1TOLO:F 
ORC=1TOL6:P(D,C)=2:NEXTC,D:GUTOBS 
EO! 

32 SOUNDS, B:FORA-2SSTOLSTEP-15:SOUNDO, A 
=NEXTA:SOUNDO, B:L INE (90, 180)—(150,190), 
1,BF=LINE(1S2, 100)-(240,188),1,BF:LINE( 
152,100)-(240, 188) ,6,R 

33 A$=INPUTS(1) = IFASC(AS)=32THENSS 

34 IFASC(AS)=110RASC(A$)=1ZTHENZ9 

35 IFASC(AS)=1STHENZS 





36 IFASC(AS)=127THENZL 

37 IFASC(AS)=27THENLO 

38 D=ASC(AS) :ONDGOTOLO, 97,90,111, 107,11 
4,118,124,147,151,,,161,166,171 

39 GOTUSS 

49 ACENDE OU APAGA 

41 IFSTRIG(B)<>0ANDPOINT (X+5,Y+5)=14THE 
NLINE(X+1,Y+H1)—(X+8,Y+8), 1, BF: D=INT((X— 
15)/8)+1:C=INT((Y-48)/8)+1:P(D,C)=D:PRE 
SET(D+17,C+17),1:GOTOSS 

42 IFSTRIG(B)<H»BTHEN INE(X+I,Y+HI)—(XH+B, 
Y+48),14,EF:D=INT((X-15)/8)+1:C=INT((v—A4 
2)/8)+1:P(D,C)=1:PRESET (D+17,C+17),15 
43 RETURN 

44 PUTSPRITES, (X,Y),15,1:GOSLUB41 

GoTO6S 

* MOVIMENTO 
K=STICK(0)+STICK(1)+STICK(2) 
IFK=ITHENv=Y-8 

IFK=2THENX=X+8:Y=Y-8 

IFK=3THENX=X+8 

IFK=4THENX=X+8:Y=V+8 

IFK=5THENV=V+8 

IFK=6THENX=X-6:V=v+8 

IFK=7THENX=X-B 

IFK=BTHENX=X-B:Y=Y-8 

IFX<16THENX=16 

IFX>136THENX=136 

IFY<S1THENY=41 

IFY>161THENY=161 

RETURN 

IMPRESSAO 

FORD=ITOLEN(AS) : SUUNDO, E : DRAW"BM"+ST 
R$(E)+", "+STR$(F) :COLORG:PRINTHL, MIDE(ÇA 
$,D,1) 

63 E=EHH:NEXTD: SOLNDO, B:RETURN 

& * Rotina Defaut 

65 COLORIS,1,1:CLEAR:DEFINTA-Z:MAXFILES 
=53:CPEN"GRP: "FOROUTPUTASKI : SCREENZ, 2,03 
PEER 

66 * Limpa matriz,define variaveis 

&7 DIMP(16,16),J(16,16):FORC=1TOL6:FURD 
=1T016:P(C,D)=B:NEXTD,C:X=16:Y=41:5=1:B 
EEP 

68 * Define Sprite 

69 FORD=ITOB:READAS : B$=BS+CHRS (VAL ("EM 
+A$) ) :NEXTD:BEEP:SPRITES(1)=B$:DATPEI ,6 
6,66,0,9,65,66,81 

70 POKEBHFCAB, 1 

71 * DESENA TEA 

72 LINE(14,14)-(40,38),2,B 

75 LINE(15,40)-(145,170),4,B 

74 E=70:F=5:6=10:H=7:A8="BUTTY-SPRITE" : 
SOUNDB,8 

75 G0SLB62:E=71 :GOSLBA2:E=44:F=13:6-3:H 
=7:P4="By—>Alexandre Cardoso Dullius":G 
0S.B42 

76 E=43:G0SLUB62:E=55:F=23:6=7:H=16:A8=" 
REVISTA CPU" :GOSURA2:E=56:G0SLB&2 

77 E=63:F=32:6-18:H=7:A4-"Aquia Informa 
tica LTDA" :GOSLBS2:E=62:GOSLEA2 

78 E=152:F=50:6=15:H-6:A8="PARA DIGITAR 


+ 
q 


ESS8IR 


se 
Ra 
4 
55 
É) 
57 
s8 
2 
ea 
é * 
a 





UM" :GOSUB62:E=152:F=58:A8="DOMANDO , T 
ED E" :GOSURG2 
FL ANTES !!!":G0SLE 


80 E-28:F=181:6=11:H=7:A8="COMANDO=>" :6 
osuBA2 

81 LINE(152,100)-(240, 188) ,6,B:BEEP 

&2 * LOCP PRINCIPAL. 

83 PUTSFRITEB, (X,Y),15,1:605UB47 

84 PUTSPRITEB, (X,Y),15,1:605UB4 

85 KEY (1)0N:ONKEYEOSLEG? 

86 GOTOES 

87 * LIMPA quadro 

88 LINE(IS2, 108)-(240,188),1,BF:LINE(IS 
2,100)-(240,188) ,6,B:GUTOES 

89 * CTRL+C 

90 GOSUB9S:A4="CTRL+C" :GOSLBAZ: GOSUBI22 
91 FORB=1TOIS:J(E, L)=P(B,16):NEXTR 

92 FORA-ITOIS:FORE=ITOLG:O (B,AtL)=P(B,A 
)=NEXTE,A 

93 BoTOLA? 

94 * DDD 

95 E=90:F=181:6=10:H=6:RETURN 

96 * CTRL+HE 

97 GOSLB95:A8="CTRL+E" :BOSUB6Z:GOSUBI 22 
98 FOREB=1TOI6:J(B, 16)=P(B,1):NEXTE 

99 FORCEISTOZSTEP- :FORE=ITOLG:J(B,A-1) 
=P(B,A) :NEXTB,A 

122 GOTOLOZ 

101 * ANDA 

122 FORA-ITOLS:FORB=I TOLS:FP(B,A)=(B,A) 
3NEXTR,A:K=9:FORB=4 1 TOLGISTEFO: K=K+I il= 
[) 

185 FORA=16TOLS/STEPS:L= +12: IFP(L,K)=1T 
HENLINE (A+, B+L)—(At8,EHB) ,14,BF:PRESET 
(L+17,K+17) ,15:GOTOLDS 

104 LINE(A+I ,B+1)-(A+3,B46),1,BF:PRESET 
(L+17,K+17),1 

105 NEXTA,B:GOTOBS 

106 * CTRLHE 

197 GOSUE9S:A$="CTRL+E" :GOSLB6?:GOSLBIZ 
a 

126 FORB=1TOI6:J(16,E)=P(1,B) :NEXTE 
109 FURA=16TOZSTEP- :FORE=ITOLG:J(A-1,B 
J=P(A,E) :NEXTB,A:GOTOLAZ 

110 * CTRLAD 

111 GOSUE9S: AS="CTRU+D" :GOSLEGZ: GOSUBIZ 
2 

112 FORE=1TD16:9(1,B)=P(16,8):NEXTR:FOR 
AFITOLS:FORB=1TOLG:I (A+, B)=P(A,B) NEXT 
E, A:GOTOLGZ 

113 * CTRL 

114 GOSUB95:A8="CTRL+" -GOSUB42: BOSUBIZ 
z 

115 FORA=ITOL6:FORB=1TOL6:J(B,A)=P(B,A) 
:NEXTB,A 

116 FORA-ZTOS:FORB=1TOLG:J(A,B)=P(1,E): 
NEXTE, A: GOTOLAZ 

117 * CTRL+G 

118 GOSLE95:A$="CTRL+6" :BOSUBS2:GOSLBIZ 
2 

119 FORM-LTOLS:FORB=1TOL6:(B,A)=P(E,A) 
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:NEXTE,A 

122 FORB=1TOL6:J(3,B)=P(1,B):J(4,B)=P(2 

«B):NEXTE:GOTOLAR 

121 * PROCESSANDO 

122 E=155:F=123:6-15:H-6:04="AGLUARDE! " : 
:H-6:A8="| 

SANDO. . .":GOSLUBAZ: RETURN 

123 * CTRAH 

124 RESTORE126:SCREENZ:6=11:F=5:H=6:FOR 

E=1TO17:E=9:READAS: GOSUBAZ:L INE(6,F-2)— 

((LEN(AS) 46)+13,F+8) ,13,B:F=F+11:NEXTB 

125 AS=INPUTS(1):0L5:K=B:FORB=41TOLG2ST 

EFB:K=K+1:L=2:FORA-16TOIS/STEPB:L= +1:6 

oTOL4S 

126 DATA HOME/OLS — LIMPA A SFRITE 

127 DATA INSERT — PINTA TODA LINHA 

128 DATA DELETE — AFAGA TUDA LINHA 

129 DATA ESC — SAI DO PROGRAMA 

132 DATA CTRL+HA — INVERTE OS QUADROS 

131 DATA CTRL+B — SCROLL P/ CIMA 

152 DATA CTRL+HC — SCROLL P/ BAIXO 

153 DATA CTRL+D — SORGLL P/ DIREITA 

134 DATA CTRL+HE — SCROLL P/ ESQLERDA 

135 DATA CTRL+F — ESPELHO 1/4 

136 DATA ECTRL+G — ESPELHO 1/2 

157 DATA CTRL+H — LISTA COMANDOS VIDED 

138 DATA CTRL+I — LISTA COMANDOS IMPRES 

SORA 

139 DATA CTRL+HI LISTA DADOS HEX. VIDE 

o 


148 DATA CTRL+M — LISTA DADOS HEX. IMPR 
ESSORA 


141 DATA CTRLAN — INVERTE SO COLUNA 

142 DATA CTRL+O — INVERTE SO LINHA 

143 IFP(L,K)=ITHEN INE(A+I BAI) —(0+8,B+ 
8),14,BF:PRESET(L+17,K+17), 15:GOTO14S 
144 LINE(A+,B+1)-(A+B,E48),1,BF:PRESET 
(L+17,K+17),1 

145 NEXTA, B:RETURN72 

146 * CTRL+I 

147 GOSUB95:AS="CTRL+I":GOSUBAZ:E=153:F 
=105:6=15:H=5:A8="TED E ALGO" :GOSLB42:E 
=158:F=113:08="PARA IMPRIMIR" :GOSUB6Z 
148 AS=INPUTS(1) :E=160:F=132:6=14:08="1 
MERIMINDO. . . ":GOSUB&2:LPRINT" COMANDO 
S DO BUTTY SPRITE 1.8" 

149 RESTORE1Z6:EEEP:FORB=1TOL7:READAS:L 
PRINTAS:LPRINT:NEXTE:GOTOBS 

150 * CTRLAI 

151 GOSUE9S:A$="CTRL+" :GOSLBGZ:GOSUBIZ 
2: SCREENS: OOLORIS: DRAW" EMP, 5º SFORA-ITOL 


36 CPU 


&:FORE=ITOL6 
152 P$PS+RIGHTS(STRS(P(R,8)),1):NEXTE 
153 TS=LEFTS(P$,8) :K$=RIGHTS(PS,8) 

154 US=HEXS(VAL ("REPETE ) ELSSHEXS (VAL (" 
BEM) 

155 PRINTAL,US;","5L$s",UsP$=""iTe=PS: 
K$=TS:L$=K$ 

156 IFA-STHENDRON"EMO, 15" 

157 IFA-IGTHENDRAW" EMO, 25" 

158 IFA=ISTHENDRAW"EMO 35" 

159 NEXTA:GOTOLZS 

140 * CTRLAM 

161 GOSUE95:A8="CTRLAM" :GOSUBG2:E=155:F 
=123:6=14:H=6:A8="TED E ALGO" :GOSUB4Z:E 
=160:F=133:6=15:A8="PARA IMPRIMIR" :G0SU 
Ba2 

162 AS=INPUTS(1) 2E=155:F=145:A8="IMPRIM 
INDO. . .":GOSUBA2:LPRINT" DADOS DO SPRI 
TE.. CRIADO NO EUTTY” 

163 FORAELTOL6:FORB=ITOLS:P$=PSHRIGHTS( 
STRS(P(B,A)),1):NEXTR: TS EFTS(P$,B) :K$ 
=RIGHTS(P$,8) :US=HEXS(VAL ("&E"+TS)) 

164 L$=HEXS(VAL ("RB +HCS) ) ELPRINTUSS "5 
PS" "5 2 T&=P$: K$=T$=L$=K$:NEXTA:C 
LS:G0TOLZS 

165 * CTRLAN 

166 GOSUE9S: A$="CTRLAHN" :BOSUB42: GOSUBIZ 
2:FORB=41 TOLGSSTEPS:A=INT( (X-15)/8)+1:C 
=INT((E-40)/8)+1 

167 IFP(A,C)=1THENP(A,C)=0:LINE(X+1,B+ 
1-048,B+8), 1, BF:PRESET(A+17,C+17), 1:60 
TOL6? 

168 P(A,C)=1:L INE(X+,EHL)—(X+48, 48) ,14 
«BF :PRESET(A+17,C+17),15 

149 NEXTE:GOTOBS 

170 * CTRLHO 

171 GOSUE9S: A$="CTRL+O" :GOSUB6Z:GOSUBIZ 
2:FORB=16TOLSBSTEPB:ASINT( (Y-40)/8)+1:C 
=INT((E-15)/8)+1 

172 IFP(C,A)=1THENP(C,A)=B:LINE(B+, + 
)—(B+8,V48), 1, EF:PRESET (C+17,0+17) 1:60 
TOL74 

173 P(C,A)=1:LINE(B+L, VHL) (BHO, V+8),14 
+BFSPREGET(C+17,0+17),15 

174 NEXTE:GUTOBS 

dz é 

176 * ESTE PROGRAMA FOI DESENVOLVIDO 
177 * POR ALEXANDRE CARDOSO DULI TUS, 
178 * EM DEZEMERO DE 1988 , NM MICRO 
179 * EXPERT,ESFECIALMENTE PARA A 
182 * REVISTA CPU... Ê 
181 * 











JANELAS EM SCREEN 0 


RICARDO P. RYMSZA 


Já ficou provado que a utilização de janelas, além de dar melhor apresentação aos programas ainda os torna de mais fácil 
utilazação. Porém, a programação de tais janelas era feita através do comando LINE, o que exigia que o programa trabalhasse em SCREEN 
2, o que trazia um sério problema, que é a resolução de caracteres na tela. 

O programa que apresento a seguir gera janclas de tamanhos diversos e em SCREEN 0, aproveitando a resolução de 40x24 
caracteres, tendo possui duas variações de janelas: uma em que a janela se sobrepõe a outra anterior e outra em que a janela aparece e 
desaparece, mantendo o texto anterior intacto. 

Às linhas 500 a 580 salvam, a partir do endereço &HAO00, a parte da tela que é apagada pela nova janela. Os caracteres são lidos 
diretamente da VRAM e escritos na RAM. 

As linhas 700 a 780 recolocam na VRAM a parte da tela que foi apagada pela janela. 

As linhas 1000 a 2050 geram as janelas definidas através dos números contidos nas variáveis X, Y,Le A. 

Encerro este artigo com esta breve explicação do programa, lembrando ao leitor que nenhum programa é absoluto e nenhum 
programador é perfeito. O leitor deve modificar estasrotinas conforme as suas necessidades, aumentando a sua velocidade e aperfeiçoando- 
9, pois este é o único e verdadeiro modo se aprender a lidar com qualquer linguagem, desde o Basic ao Assembler. Qualquer dúvida ou 
sugestão será bem recebida, bastando para tal entrar em contato com a revista CPU. 





Ricardo P. Rymsza, 15, cursa a 1º série do 2º grau do Colégio 
Santo Inácio, programando em micros da linha MSX há 3 
anos, utilizando as linguagens Basic e Assembler. 


* Janelas em scremm O 
* por Ricardo P. Rymsza 
* Revista CPU 
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19 OS 
WIDTHIS 
KEYIFF 


SOFT 


X e Y sao as coordenadas da janela 
“Lea largura da janela 
“A ea alta da janela 


“OS MAGOS DO MSX” 


CONHEÇA NOSSA QUALIDADE IMPECÁVEL E A EXPERIÊNCIA DE 
QUEM LIDA COMMSX HA MAIS DE TRÊS ANOS. NOSSO ACERVO TEM 
CERCA DE 2100 TITULOS (MUITOS COM DOCUMENTAÇÃO), E 
CRESCE SEMANALMENTE COM GRANDES NOVIDADES E PROMO- 
ÇÕES... VAMOS! SEJA MAIS UM DOS MAIS DE MIL FELIZES CLIENTES 
DO MAGO DO LAZZAROSOFT. 


JOGO NCZ$1,00 APLICATIVO 
CPIM Noca o COPIADOR 
DISCO NCZ$2,00 FITA 
DESPESAS POSTAIS * 


FORM-ITOSSD:PRINT"&" ; :NEXTW 
X=2:Y=2:L=15:A-18:GOS BIGOA 
LOCATES, 3:PRINT"ESta rotina” 
LOCATES,4:PRINT"permite a” 
LOCATES,5:PRINT"criacao de” 
LOCATES,6:PRINT'Janelas em” 
LOCATES,7:PRINT"Screen DB. " 
LOCATES,9:PRINT"Tecle espaco" 
IFINKEV$=""THENDO 

A X=7:Y=5:L=15:A-10:G0SLBSOO:GOSLBIDOD 





20 
29 
3a 
3 

32 
s 
3a 
4a 
6a 
78 
71 
72 
As 
74 


Di) 


“MSXBOOK II (DICAS DE JOGOS) n& 
é 


8 


"EDTRONIC" 
“FLINTSTONES-TRIPLE COMMANDO-SOL NEGRO 1 & 2 


120 LOCATES, 6:PRINT"Cabe agora ao" 

119 LOCATEB,7:PRINT" leitor, aper—" 

122 LOCATEB,8:PRINT"feicoar esta” 
132 LOCATES,9:PRINT"rotina ou ” 

149 LOCATEB, 1B:PRINT"criar novas.” 

159 LOCATES, 12:PRINT"Tecle espaco" 

155 IFINKEY$=""THENISS 

162 GOSUB70B: X=2:V=15:1=34:A-3: GOSLEIDA 
B 

178 LOCATES, 16:PRINT"Janelas v 1.2 por 
Ricardo Rymsza” 

198 GOTO 1904 








NAVY MOVIES-TERRA MEX-TUXY-TETRIS-WALL RUNNER-VECTOR 
MOON LANDING-ADDICTA BALL+NEO-Z-DANGER MOUSE- 
PERTER BEARDLEY'SFOOTBALL-QUEEN Il-DUCKYS-FLICKY-= 
SQUARE-RAMPART-CHUBBY CRISTLER-OPERATION WOLF- 
ASPAR-PITMAN-FINAL COUNTDOWN-RED OCTOBER ETC,” 


Seu pedido poderá ser pago com vale postal (AG. Centro) ou cheque no- 
minal cruzado a Carlos H. B. Magalhães contendo um máximo de informa- 
qões sobre seu equipamento e um telefone para eventual contato. 


DESCONTÃO NO TOTAL: 10% 
SOLICITE CATÁLOGO Gi 

NOVIDADE SEM PACOTE É AQUI 
ENTREGA EM 24 HORAS + CORREIO. 





CAIXA POSTAL 1955 RIO DE JANEIRO RJ CEP:20001 
nova FOME GELpEDE 





* Rotina que salva a parte da tela 
* que sera preenchida com a janela. 


NE=y44D+X : 0=8HA0DA 
FORV=ITOA 

R=N 

FORF=ITA. 

FOKE (O), VPEEK(R) 
C-O+I:R=R+L 

NEXTF 

NENHIa 

NEXTV 

RETURN 


* Rotina que retoma a parte da te- 
* la que foi preenchida c/ a janela 


Nevt4g+X:0-2HA200 
7805 FORV=ITOA 
710 R=N 
720 FORF=ITAL. 
75D VPOKE(R),PEEK(O) 
740 O(H1:R=R+1 
758 NEXTF 
TOA N=NHaD 
77B NEXTV 


7930 RETURN 

128 * 

1201 * Rotina que cria janelas em 
1202 * screen 8 

igos * 

1004 IF(L+X)>39THEN 4 —1 :GOTOIDOS 
1005 IF(A+y)>Z3THENSSA-1 :GOTO 1975 


PRINT"! 
PORR=K+TO(X+(L—1) )—1:LOCATER, bh: 

PRINT" “;:NEXTR 

1100 LOCATER,WH1 :PRINT"!” 

1110 T=T+1:W+4H1:GOTD1OSA 

2000 LOCATEX, V+(A-1) 

2018 PRINT'+"; 

2220 FORV=ITO 2 

2058 PRINT"—" ; :NEXTV 

2240 PRINT"+ 

2250 RETURN 


ASSINE CPU POR 6 NÚMEROS 


DESEJO EFETUAR A 
ASSINATURA DA REVISTA 
CPU POR 6 NÚMEROS 


DESEJO EFETUAR A 
ASSINATURA DA REVISTA 
CPU POR 6 NÚMEROS 


PARA TAL, ESTOU ENVIANDO CHEQUE NOMINAL | PARA TAL, ESTOU ENVIANDO CHEQUE NOMINAL 
A ÁGUIA INFORMÁTICA, OU VALE POSTALJA ÁGUIA INFORMÁTICA, OU VALE POSTAL 
(PAGÁVEL NA AGÊNCIA COPACABANA), NO|(PAGÁVEL NA AGÊNCIA COPACABANA), NO 
VALOR DE NCz$ 7,00 (SETE CRUZADOS NOVOS).| VALOR DE NCz$ 7,00 (SETE CRUZADOS NOVOS). 


FAÇA A SUA ASSINATURA E CONCORRA AO 

SORTEIO DE PROGRAMAS DA PAULI SOFT. 

( EDTRONIC - SPRITE MAKER - MSX TURBO - 
FAST COPY) 


NOME: ... 
ENDEREÇO 

BAIRRO: 

CIDADE : 

DADOS DO EQUIPAMENTO 


FAÇA A SUA ASSINATURA E CONCORRA AO 
SORTEIO DE PROGRAMAS DA PAULI SOFT. 
( EDTRONIC - SPRITE MAKER - MSX TURBO - 
FAST COPY) 


CIDADE 
DADOS DO EQUIPAMENTO : 





AGUIA INFORMÁTICA 


AGUIA INFORMÁTICA 





MSX E dBASE H, 


A CAMINHO DE SUA EMPRESA 





e a 
pe 


DINO POLLETO 

































































Nos últimos anos, conversas sobre mi- 
crocomputadores, informatização e software 
têm se tornado comuns. Quem não souber abso- 
lutamente nada sobre e assunto corre o risco de 
ficar apenas ouvindo, ouvindo. Quem sabe, 
envergonhado. 

Se o ouvinte é um empresário, então o 
constrangimento pode ser maior porque onde já 
se viu um empresário que não sabe falar de 
computador, se até crianças e jovens andam I | 
falando disso! s 

Mas, a verdade é que qualquer pessoa estará sendo injusta 
consigo mesma se considerar-se “ignorante” em computação. Afi- 
nal, quem fica envergonhado por não saber nada sobre geladeiras 
além, é claro, de abrir a porta e apanhar uma cerveja geladinha, ou 
por não saber nada sobre mecânica de automóveis? 

Do mesmo modo, ninguém deveria se esconder cada vez 
que começasse a ouvir falar em teclados, micros, drives, modens, 
softwares, etc. 

O que fazer? 

No mundo empresarial, banco de dados, processadores de 
texto, planilhas eletrônicas e geradores gráficos estão entre as 
ferramentas de produtividade mais necessárias e mais procuradas. 





Chamamos a isso de software de produ- 
tividade porque são ferramentas que melhoram 
nossa produção porfissional. 

No caso de empresas, dados são impor- 
tantes quando se quer fazer algum diagnóstico, 
quando se quer saber alguma coisa, quando se 
quer tomar uma decisão. 

Nestes tempos de concorrência feroz, a 
correta administração das atividades (produção, 
recebimento de dinheiro e pagamento de 
obrigações) é mais do que vital. 

Quem tem suas informações sobre custo anotadas em 
algum lugar consegue fazer o orçamento mais rápido que a 
concorrência. Quem sabe quanto vai ter que pagar no fim do mês 
pede mais cedo o desconto de duplicatas ou empréstimo para capital 
de giro. Quem sabe qual o banco que tem mais duplicatas para cobrar 
sabe atrás de qual gerente correr na hora do aperto. 

Quando se fala em gerenciador de banco de dados é preciso 
ter em mente três coisas: 





- O sistema armazena informações? 
- ele modifica as informações quando você decide? 
- O sistema recupera essas informações quando você decide? 
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Numa analogia simples, um Sistema que armazena 
informações pode ser: uma secretária, um bloco de fichas em 
branco, um lápis, um arquivo de gavetas, uma tira de etiquetas 
adesivas. 

A parte que modifica as informações fica sendo: uma 
secretária, um lápis, uma borracha, cola. 

E o sistema que recupera informações fica assim: uma 
secretária paciente, rápida, confiável, que não falte, que não perca a 
chave do arquivo, resistente, corajosa. 

Poisé, se você descobrir uma secretária que seja tudo isso ela 
vale seu peso em ouro. Ponha-a no seguro. Vale mesmo. 

Mas ela nunca será um computador. Resistente, incansável, 
rápido, confiável e que usando um gerenciador de banco de dados, 
como o dBASE II, faz infinitamente mais do que o sistema descrito 
acima. 

Os pequenos e médios empresários precisam que a 
informática lhes proporcione benefícios imediatos e ao menor custo 
possível. Assim, é provável que sua empresa não precise de um 
IBM-PC, pelo menos por enquanto. De qualquer modo, é preciso 
somar os preços de hardware, software e acessórios, além de avaliar 
o custo/benefício. 

Enfim, o dinheiro a ser empregado vai realmente melhorar 
os serviços, agilizar as decisões? 

Lembre-se que um computador mal adaptado às necessi- 
dades ou ao porte'de sua empresa não presta serviço nenhum, só 
atrapalha. E um software sem recursos, ou de recursos escassos não 
resolve nenhum problema, ao contrário. 

À primeira vista pode parecer que se trata apenas de procurar 
uma boa empresa de informática e comprar os equipamentos 
necessários. Na maioria dos casos, o interessado encontra uma das 
muitas lojas que existem nas grandes cidades e pede orientação, 
sendo que nem sempre consegue o que precisa. 


Caso encontre algum programa que pareça interessante, 
deve pedir para vê-lo em funcionamento, experimentá-lo, ser exi- 
gente. 

Se precisar de alguma característica e alguém reponder rapi- 
damente que não dá, é bom desconfiar. Geralmente dá, mas a pes- 
soa é que não sabe como fazer e não quer confessar. 

Faça o seu papel de consumidor. Afinal de contas, o dinheiro 
éseu. 

É bom lembrar que, por mais que se multipliquem as escolas 
que ensinam as linguagens BASIC e COBOL, a programação de 
computadores sempre será uma atividade de especialistas que 
passam dias, semanas, meses, tentando montar grandes quebra- 
cabeças. 

Trata-se de uma atividade que consome muito tempo, exige 
dedicação de aprendizado, técnica em constante aperfeiçoamento e 
um conhecimento profundo de lógica e das linguagens com as quais 
se trabalha. 

Quanto ao Basic, uma linguagem inventada em 1964, está 
bem longe das necessidades de hoje. 

Mas e agora? 

Você já optou pelo poderoso hardware MSX. Se na sua 
configuração tiver pelo menos um disk drive é meio caminho 
andado. É só adquirir o software. 

Valeapena lembrar a importância da compatibilidade do seu 
software para MSX com um software para IBM-PC,, pois isto facili- 
tará a migração futura, se necessário, dos seus arquivos e da própria 
cultura do software. 

Um exemplo é o dBASE Il Plus MSX, que vem a ser o único 
gerenciador de banco de dados do mercado e que já facilitou e 
agilizou a vida de muitas empresas e que merece uma atenção 
especial na hora de se montar um sistema que exige a manipulação 
de dados. 


O MULTIMODEM LIGA VOCÊ AO MUNDO 


Seu MICROCOMPUTADOR * está desinformado, com cara de quem já fez tudo 


o que podia? 


Volte a ativa com o MULTIMODEM DA 
TELCOM, que lhe deixa na ponta dos dedos o 
Brasil e o mundo. Você tem acesso a bancos de 
dados como: CIRANDÃO, BIREME, RENPAC, 
SAMPA, VIDEOTEXTO, entre outros, através 
de ligações a grandes sistemas de computadores 
que também lhe proporcionam, troca de infor- 
mações, programas e jogos. 

Você sai do isolamento, ganha novos 
amigos e ainda tem à mão o melhor da 


TELEINFORMÁTICA. 


O MULTIMODEM agora tem Discagem 
Automática (dispensa o uso do aparelho telefônico) 





MSX SOFT INFORMÁTICA (RJ) 


Es === 
ani Fone: (021) 2340775 














TELCOM INFORMÁTICA LTDA. 
Rua Anita Garibaldi, 1.700 

CEP 90430 - 

PORTO ALEGRE -RS 

Telefone: (0512) 41-9871 


The Lucky Man (BA) Fone (071) 3595599 
Prática Proj. e Assist. Téc. Ltda. (SC) Fone 
(0482) 220819 

e lojas especializadas em MSX 
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Nasa Computadores (SP) Fone (011) 9142266 É 





CARTAS 


Desejo corresponder-me com pessoas interessadas em trocar dicas 
e macetes de programação em Basic, Assembler e, principalmente, 
sobre “C”. 

ALEXANDRE CARDOSO DULLIUS 

RUA LINDOLFO COLLOR 111 

CENTRO 

93800 - SAPIRANGA - R$ 


... Aproveito a oportunidade para desejar-lhes muito sucesso 
com a revista “CPU”, de excelente qualidade, feita por pessoas que 
conhecem o equipamento e que se propõem a escrever. 

Como usuário do MSX, gostaria que, se possível, me fossem 
esclarecidas algumas dúvidas. 

Possuo um drive Microsol DRX 360 com interface CDX2 

- É possível retirar a fonte, colocando-a separada, pois seu 

aquecimento é excessivo? 

- A ligação da interface é algo assim escabroso, pois a mes- 

ma não tem saída na caixa do drive, ficando o cabo dobra- 

do com saída lateral ou reto passando por cima da fonte e 

correndo o risco de ser cortado pela caixa. Será que liguei 

errado? 

- O comando VERIFY ON/OFF está sempre ativado ou tem 

que ser reativado a cada operação? 

- É possível a instalação de um led para saber quando está 

ligada? 

Meu equipamento é o seguinte: Micro Hot Bit - Drive DRX 
360 DD e Interface CDX 2 

Sem mais para o momento, agradeço pela atenção dispen- 
sada e subscrevo-me, 


SÉRGIO LUIZ RUIZ SOLER 
RUA DO CORTUME 625 BL C 4 
ÁGUA BRANCA 
05065 - SÃO PAULO - SP 
Enviamos sua correspondência à Microsol que nos enviou a 
seguinte resposta: 


Com relação à carta acima citada, informamos que: 

Realmente, este aquecimento não é característico da fonte. 
Caso seja do seu interesse, V. Sa. poderá enviá-la para manutenção, 
sem quaisquer ônus. Somente as despesas de frete serão de sua 
responsabilidade. 

A ligação docaborequer a abertura do gabinete. Essa foi uma 
medida encontrada para que o preço fosse mais acessível. En- 
tretanto, o drive possui uma depressão entre o gabinete e o acionador 
que permite a passagem do cabo, sem maiores problemas. 

O comando verify encontra-se na página 99, do livro Sistema 
de Disco para MSX, que segue em anexo, para maiores esclareci- 
mentos. 

Cordialmente, 

NAGILA LOPES N 
DEPTO DE COMUNICACÃO 
MICROSOL TECNOLOGIA LTDA. 
RUA ALMIRANTE RUFINO 779 
VILA UNIÃO 

60420 - FORTALEZA - CE 


-.. Quanto às várias dúvidas de vossos leitores sobre a 
transformação do MSX 2, repasso aqui respostas a todas as cartas de 
uma só vez, mas sem responder a uma de cada vez, já que são muitas 
cartas e muitas dúvidas. Acredito que assim, poderão poder dar um 
atendimento maior a todos os vossos leitores de uma só vez. 
Preço da transformação: US$ 400 
Preço do cartucho MegaR AM: USS 200 
Prazo de entrega: +/- 30 dias 
Prazo de garantia: 90 dias 

Várias outras dúvidas não me senti capacitado em responder, 
já que se tratam de consultas que, a meu ver, devem ser feitas di- 
retamente e particularmente ao Ademir, tais como: preços de 
serviços especiais, se é possível viajar até São Paulo chegando pela 
manhã e levando o micro de tarde, etc, etc. 


PEDRO HENRIQUE GAMA 
CAIXA POSTAL 94368 
25800 TRÊS RIOS - RJ 


Possuo um MSX há algum tempo e, lendo um exemplar da 
revista CPU de número 3 achei, de muito boa qualidade os assuntos, 
artigos e programas publicados. Só fiquei um pouco decepcionado 
de não encontrar a seção de dicas de mil vidas na revista de número 
5 e acho que não fui só eu que fiquei assim. 

Se possível, gostaria de sugerir que fossem publicados 
comentários, mapas, dicas, macetes e truques de jogos, para que o 
usuário consiga concluir o jogo. A meu ver, os leitores não se 
interessam só por programas complexos. Existem os aficionados 
por jogos e tenho certeza que não são poucos. Com esse espaço a 
revista só tem a ganhar. 

Gostaria de saber se há condições de receber as revistas de 
número 1 e 2 pelo correio, para que a minha coleção fique completa. 

Deixando um forte abraço, desejo-lhes um Ano Novo com 
muito sucesso. 


SÉRGIO LUIS CESAR 
BECO AUGUSTO DOS ANJOS 25 
21710 - PADRE MIGUEL - RJ, 


Realmente você tem razão. No número 5 nos discuidamos 
um pouco com a parte de jogos, principalmente no que se refere a 
seção de dicas de mil vidas. Não acreditávamos que esta seção 
estivesse fazendo tanto sucesso. Estamos incrementando a parte de 
jogos e já neste número poderá ser notada a diferença. 

Com relação aos números atrasados, informamos que o 
número 2 encontra-se esgotado. O número 1 poderá ser solicitado 
pelo correio, assim como os demais, mediante o envio de cheque 
nominal, ou vale postal, pagável á agência Copacabana, no valor do 
custo do número que se encontra nas bancas. 





ua 
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PAY LOAD. 


PAY LOAD é um jogo sensacional, onde você tem que dirigir um 
caminhão pelas estradas do Japão . Neste artigo, fornecemos os 
comandos do jogo e alguns macetes que irão torná-lo um 
excelente motorista. 


- Para iniciar, pressione a tecla F2. 


LUIZ FERNANDO FIACORDI 
PAULISOFT INFORMÁTICA 


- Para movimentar o caminhão pelas ruas, pressione as setas direita e esquerda ou use o joystick. 


- Para acelerar, pressione a barra de espaço ou o botão do joystick. 


- Para brecar, pressione shift ou graph ou code ou caps ou ainda o botão do joystick. 

- Para mudar as marchas, pressione as setas para cima e baixo ou joystick. 

- Para gravar ou carregar, presione STOP, ou seja, quando você já estiver cansado de jogar, mas quiser continuar outra hora do mesmo 
lugar que parou, basta pressionar STOP, escolher a opção SAVE e pressionar a barra de espaços>. 


- Agora, se você quiser carregar o jogo do lugar que parou, proceda da mesma forma. Somente pressione STOP após começar o jogo. 


Escolha a opção LOAD e pressione barra de espaço. Não se esqueça de pressionar a tecla PLAY do gravador. 
Obs: Os comandos SAVE e LOAD, mencionados anteriormente, só podem ser utilizados para gravar em fita cassete. 


FUEL 5 TIME / LIMIT 6 


INFORMATION BOARD 1 


ne 


FATIGUE 2 LP 3 POINT 4 





COMANDOS 


1- INFORMATION BOARD (informação de bordo) 

Aparece escrito os vários tipos de informações que irão lhe 
interessar, como, por exemplo, por que motivo e quanto dinheiro 
perdeu ao ser multado. 

2- FATIGUE (cansaço) 

Indica o nível de cansaço do motorista. Quando essa porcen- 
tagem ultrapassar 100%, procure um DRIVE-IN. Chegando lá, 
estacione seu caminhão em cima da faixa escrita TTC. Compre um 
“MEAL” (refeição) eum “COFFEE” (café). Caso você não proceda 
desta forma, o motorista ficará tão cansado que não conseguirá 
dirigir direito, ou seja, não vai obedecer aos seus comandos. 

3- LP (número de infrações que se pode cometer) 

Inicialmente, você começa com 15 e, conforme for multado, 
batendo, o número irá abaixando. Caso chegue a zero, sua licença 
será cancelada. 

4- POINT (Pontos) 

Indica o número de pontos que você tem. No início, você começa 
com 20 mil pontos. Esses pontos servem para você comprar comida, 
combustível, peças para o caminhão, etc. 

5 - FUEL (Combustível) 

Indicador de combustível. Caso a faixa vermelha chegue ao fim, 

o jogo acabará por falta de combustível. Para encher o tanque, 
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proceda da seguinte forma: procure um posto de gasolina (de 
preferência nas cidades, pois no campo não há posto), estacione em 
cima da faixa onde está escrito TTC. O tanque será reabastecido, 
bastando, para isso, que você não saia de cima da faixa. Enquanto 
seus pontos estiverem sendo descontados, seu tanque estará sendo 
abastecido. 

6- TIME/LIMIT (tempo limite) 

Existem dois relógios marcando as horas. O relógio superior 
marca as horas do dia, sendo que, inicialmente, mostrará 8 horas da 
manhã. Quando chegar às 19 horas, escurece, só amanhecendo 
novamente às 6 horas da manhã. O relógio inferior indica o tempo 
que lhe falta para entregar o carregamento. Portanto, não se atrase, 
pois caso isto aconteça, será descontado do seu pagamento. 

7 - SPEED (velocidade) 
Indica a velocidade do caminhão. 
8- TRIP (giro) 

Indica os quilômetros rodados pelo caminhão. 
9 - RND (marchas) 

R para ré, N para neutro, e D para a frente. 

10 - MAPA DO JAPÃO 

O ponto branco indica a sua localização. Caso aceite algum em- 

prego, aparecerá um ponto vermelho, que será o seu destino. 


11 Current Location: Hokkaido 
12 Assignmet: Hokkaido Nigata 
13 Load: Cow 

14 Load Wight: 0047t 


15 Delivery Time Limit: 05' 48” 
16 Distance: 1300 Km 

17 Payment: 13160 pts 

18 Accept? YES NO 





A ficha de trabalho é obtida no “WORK” de cada cidade, rural 
ou urbana. 

11 - CURRENT LOCATION (local atual) 

Indica em que lugar você está. De acordo com o exemplo acima, 
você está em Hokkaido. 

12 - ASSIGNMENT (destino) 

Indica a cidade que você está e a seguir o seu destino, ou seja, o 
lugar para onde deve levar o carregamento. 
13- LOAD (carga) 

Indica o que você irá carregar. De acordo com o exemplo, você 
levará uma carga de vacas. 

14 - LOAD WEIGHT (peso da carga) 

Indica o peso do carregamento. Cuidado, pois quando o peso 
exceder, você poderá tomar uma ou várias multas. 

15 - DELIVERY TIME LIMIT (tempo limite de entrega) 

Indica o tempo que você tem para chegar ao seu destino com a 
carga. 

16 - DISTANCE (distância) 

Indica a distância do lugar atual até o destino desejado. 
17. PAYMENT (pagamento) 

Indica quanto você ganhará com essa encomenda. É o mais 
importante de todos. Por isso, não se preocupe com carregamentos 
de baixo pagamento, pois a viagem poderá sair mais cara do que 
você pensa. 

18 - ACCEPT (aceite) 

Se você aceitar o emprego, ponha a mãozinha no YES, caso 
contrário, ponha no NO. Não se esqueça de, após escolher sua 
opção, pressionar a barra de espaços. 


TIPOS DE MULTAS 


- Ultrapassar o sinal vermelho 

- Ultrapassar o limite de velocidade 
- Ultrapassr o limite de carga 

- Advertência 

- Dirigir bêbado 

= Dirigir na contra-mão 

Os dois últimos tipos de multa são os piores, pois sua carteira de 
motorista será apreendida, dando fim ao jogo. Os policiais que lhe 
poderão aplicar essas multas usam carros brancos, sendo que 
também existem radares espalhados pelas ruas das cidades. 

HIGHWAY (RODOVIAS) 

Servem para que você chegue mais rápido aos lugares. Você 
poderá pegar uma rodovia de Hokkaido e poderá ir para Aomori, 
Miyagi, Tochigi, Tokyo, Shizuoka, Aichi, Oosaka, Hiroshima, 
Fukuoka ou vice-versa. Para tal, você terá que pagar um pedágio, 
referente à rodovia que escolher. 

Nas rodovias será sempre claro, ou seja, nunca haverá noite. 

WORK (TRABALHO) 

Quando você quiser um emprego, basta encontrar um WORK, 
estacionar na faixa TTC. Aparecerá uma ficha, com todos os 
detalhes. Para aceitar uma encomenda, basta escolher o YES e partir 
para o local determinado. Assim que você chegar no local deter- 
minado, leve o carregamento até o WORK. 





GS (POSTO DE GASOLINA) 

Para encher o tanque, basta posicionar o caminhão em cima da 
faixa escrita TTC. 

Não existem postos de gasolina nas cidades rurais. 

DRIVE-IN 
Pare em cima da faixa TTC. Aparecerá um MENU de opções, 
com o seguinte: 
[| MRE ore] 
[EI [COFRE | S00 
EAR ERES 

19 - BEER (cerveja) 

De vez em quando, é sempre bom tomar uma lourinha. Mas 
tome cuidado para não dirigir bêbado, pois sua licença poderá ser 
cancelada. 

20 - MEAL (refeição) 

Como você viaja o dia inteiro e nunca pára, o motorista sente 
fome. Portanto, se você não alimentá-lo direito, ele ficará tão 
cansado que não obedecerá a seus comandos. 

Obs: O cansaço do motorista é medido pelo FATIGUE. 
21- COFFEE (café) 

É muito bom durante a noite, mas também não podemos dis- 

pensá-lo durante o dia. 
Obs: Tome sempre um café após as refeições. Com isso, o indicador 
de FATIGUE aumentará lentamente. 
22 - Exit (saída) 
Volta ao jogo. 
PARTS TUNE (OFICINA MECÂNICA) 

Pare em cima da faixa TTC. Aparecerá um menu de opções, com 

o seguinte: 





FRADER | TE 


[| 0% 
| 27 | LIGHT | 5000 pis | 
23 - GASTANK (tanque reserva de combustível) 

É de grande utilidade, pois assim você não se preocupa tanto em 
ficar enchendo o tanque. Cada GASTANK custa 10000 pts. Dá para 
comprar até 2 tanques de reserva. 

24 - TURBO (turbo) 

Também é de grande utilidade, pois aumenta sua velocidade. 
Cada TURBO custa 100000 pts. Podem ser comprados até 2 turbos. 
25 - RADIO (rádio) 

Não tem muita utilidade. Para fazer funcionar o rádio, pressione 
aletra “T”. Cada rádio custa 30000 pts, sendo que somente um pode 
ser comprado. 

26 - RADER (radar) 

Protege seu caminhão de quase todos os radares. Apenas um 
pode ser comprado. 
27 - LIGHT (luz) 

De grande utilidade durante a noite, aumentando sua visão, po- 
dendo ser comprado um farol por vez. 
28 - EXIT (saída) 

Obs: Você está sujeito, a qualquer hora do jogo, a perder alguma 
dessas peças. 











Luiz Fernando Fiacordi, 16, cursa o 3º colegial em São Paulo, 
com curso de basic e Inglês, trabalhando, atualmente, com 
entusiasmo, na Paulisoft. 
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TABELA DE PREÇOS DAS EST 
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* | UM DOS4 LUGARES ONDE PODE SER 
INICIADO O JOGO E QUE PODE SER 
IDENTIFICADO POR: 

1-  PIRAMIDE AZUL 

2- PROJÉTIL VERDE 

3- CONELILÁS 

4- QUADRADOS AZUIS 

TV- VÁLVULA TERMO MOLECULAR 

CC- CAMARA CRIOGENICA CONTROLE 
DIRECIONAL ROBODROIDE 
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FAST! COPY COPIADOR ULTRA-RÁPIDO 
DE DISCOS 


MAS MESAS 


er dei MAS 
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O usuário de MSX com um drive sofre alguns problemas para 
produzir cópias de seus programas, principalmente quando seus 
discos estão cheios, pois o tempo gasto e o número de trocas 
necessárias desanimam qualquer um. Sem dúvida, o comando do 
sistema operacional mais utilizado depois do DIR é o COPY ** e 
o usuário sabe bem como sofre com esse comando, até sonhando 
com a oportunidade de, um dia, comprar um segundo drive, dia este 
que, para muitos, dificilmente chegará. 

A PAULISOFT Informática, dentro de uma nova filosofia de 
incentivo ao software original e nacional, como demonstrou com o 
lançamento do EDTRONIC e do SPRITE MAKER, está lançando 
agora o FAST! COPY, de autoria de Gilberto Moreira Martins e 
Rubens Henrique KiihlJr., que vem para auxiliar o usuário a agilizar 
suas cópias. Como o nome deixa claro, e o subtítulo “copiador ultra- 
rápido” enfatiza, este utilitário nada mais é do que um copiador de 
setores como os muitos que já existem, só que extremamente rápido 
e necessitando um número muito menor de trocas de discos. 

O programa é distribuído somente em disco, uma vez que o 
mesmo foi produzido para ser executado a partir do sistema opera- 
cional, bastando digitar FAST1 COPY nalinha de comando. Apesar 
da facilidade de uso e de todos os comandos serem complementa- 
dos por mensagens explicativas, o programa vem acompanhado por 
um manual ilustrado e simples. Contém algumas informações 
técnicas muito boas a respeito do programa, como o fato dele 
armazenar parte dos dados lidos do disco, durante a cópia, na 
VRAM, utilizando praticamente toda a memória do micro. Desta 
forma, ele consegue realizar uma cópia com apenas 9 trocas de 
discos, enquanto que os programas concorrentes mais próximos 
necessitam de 16. 

Sua apresentação gráfica lembra um pouco o LOCKSMITH do 
Apple, onde um cursor vai varrendo uma região da tela conforme as 
trilhas e os lados vão sendo lidos ou gravados, permitindo que o 
usuário possa monitorar sua cópia. Possui boas indicações de erros 
de leitura ou de gravação, além de avisar se o disco está com selo de 
proteção impedindo a gravação, acompanhados sempre de “beeps” 
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de tons diferentes. Possui também o recurso da tecla ESC, que 
permite interromper a leitura ou gravação a qualquer momento. 
Interessante é o reconhecimento dos drives pelo próprio programa, 
só admitindo drives fisicamente conectados ao micro e não apresen- 
tando mensagens do tipo “insira disquete como drive B:”. 

O programa também apresenta algumas restrições, como exigir 
que o disco destino esteja previamente formatado e numa 
formatação padrão. Nada de discos travados. Essas restrições são 
normais e também estão presentes em outros programas do gênero. 
Porém, existe uma restrição mais importante, que limita o número 
de usuários deste programa, que é o fato de só funcionar em 
controladoras do padrão Microsol, de forma que os usuários de 
controladoras da Sharp e de 3 1/2" terão de aguardar novas versões 
que estão sendo prometidas. 

A seguir temos um gráfico comparativo do tempo de cópia de 
diversos programas similares existentes no mercado, tanto para 
MSX como para PC, sendo que estes últimos podem ser usados por 
quem tem acesso ao PC. Para MSX foram testados todos os pro- 
gramas conhecidos que realizam a cópia de forma semelhante, tanto 
para um drive quanto para dois. Um detalhe a ser observado é que 
para obtenção do tempo para um drive tentamos eliminar o fato do 
tempo de troca do disco ser diferente de usuário para usuário. Para 
isso, ao executarmos o teste, não trocamos o disco quando era 
pedido, mas simplesmente respondíamos ao pedido, eliminando, 
assim, O tempo gasto com a troca. No final, foi computado o número 
de trocas necessárias e acrescido ao tempo de cópia o tempo de 7 
segundos por troca, que, segundo nossos cálculos, seria o tempo 
médio estimado para uma troca normal de discos. 

A partir deste gráfico, podemos tirar as seguintes conclusões: 

a) O FAST! COPY com um drive é 4 vezes mais rápido que o 

segundo colocado na linha MSX e 7 vezes mais rápido que 
o mesmo programa com dois drives. 
b) O número de cópias é quase a metade das exigidas pelo 
segundo colocado (15 contra 9). 
c) O FAST! COPY, rodando num MSX com 64Kb de RAM e 16 





Kb de VRAM, com um clock de 3,58 MHZ é cerca de 1,5 
vezes mais rápido do que os programas que rodam em PC 
com 256 Kb de RAM e clock de 4,77 MHZ. 

d) Somente o DISKCOPY do PC com 1 drive consegue ser mais 
rápido que o FASTCOPY, mesmo assim em apenas 7 segun- 
dos. 

e) Pela diferença entre o tempo gasto para cópia com 1 e com 2 


forma indiscriminada. Porém, deve ficar claro que o FASTICOPY 
não faz nada a mais do que os outros copiadores de setores não 
façam, apenas agilizando o trabalho e, como todos os outros, seu 
objetivo é de auxiliar o usuário a poder manter cópias de segurança 
de seus discos, protegendo-os dos imprevistos que rodeiam o mundo 
da informática e que sua utilização para a produção de cópias ilícitas 
é de responsabilidade de cada usuário. 





drives, conclui-se que se perde mais tempo na troca de disco E 
num sistema de apenas um drive do que com a cópia propria- Produto: Fast Copy! 4 
mente. Autores: Gilberto Moreira Martins e 
f) Aúnica vantagem verificada nos outros programas semelhan- pn Rubens Henrique Kill Jr. 
tes testados, com excessão do PRO KIT ZAPPER, é o fato de Distribuição: Paulisoft Informática 
funcionarem com outras controladoras. Telefone: 021-228.1313 — K 
Endereço: Av. Prestes Maia 241 conj 908 
Muitos têm dito que programas como o FASTICOPY são , 01031 - São Paulo - SP 
incentivadores da pirataria, por permitirem a cópia de programas de Preço: 15 OTN 





































Fig.2 o E 
E Tabela Comparativa de Tempo de Cópia 
ousa is «6 Digo Cio 2= 140 6 1 ds 
arm NT RVZ2  RVI 
PROKIT ZAPPER 1.0 fé 10.0 
DISKIT 2.0 Há E” 
COPY *.* B: O bytes livres 15 u s8 
COPYDISK 1.2 Nemesis 16 ds 55 
COPIED Solxdos 1.2 E 44 
E 2Orives 
DISKCOPY Dos Tools do td a 
PCTOOLS 43.23 A 22, 15 
“ 
LOCKSMITH-PC 1.3 7 16 10 
A 
DISKCOPY PC 3 18 09 
> 
FAST COPY 9 10 1.0 
T 1 
* PX XT 4.77 MZ 256 kb PC-DOS 2.1 NT=Número de trocas. RV=Relação de 
velocidade. Tempo médio de 7 s. para cada troca. 
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o) 
[ERREI 
HJ 
EMEA Nº 
MCNO-COMPUTADONES E remménco: 
É UMA SUPER LOJA ONDE VOCÊ ENCONTRA TUDOO QUE QUIZER PARA SEU MSX. 
TAMBÉM TEMOS UMA SUPER SOFTHOUSE COM GRANDE QUANTIDADE DE JOGOS E APLICATIVOS. 
ATUAMOS TAMBÉM NA ÁREA PROFISSIONAL (DESENVOLVIMENTO DE SISTEMAS), 
TEMOS UMA EQUIPE JOVEM A SUA DISPOSIÇÃO PARA DAR ACESSORIA QUE VOCÊ MERECE. [6 
AGORA QUE VOCÊ JÁ CONHECE UM POUCO DO NOSSO SISTEMA, ASSOCIE-SE AO CLUBE DO “MSX" ENTRANDO us E) 
EM CONTATO CONOSCO PELO FONE (011) 436-0331. RUA RANGEL PESTANA, 950, CEP 13200, JUNDIA, SP. BD, > 


o) 

ê 

ONDE É POSSÍVEL ENCONTRAR TUDO PARA SEU 3 
MSX- 1, MSX- 2 E MEGA RAM. < 
< 

(O) 

« 


TEMOS ASSISTENCIA TÉCNICA PRÓPRIA, 


“GRÁTIS! 








SISTEMA OPERACIONAL BKP DISCO 
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A grande maioria dos usuários da linha MSX que tra- 
balhouou trabalha com fita cassete, já utilizou o programa BKP, que 
vem a ser uma ferramenta que permite ao usuário efetuar cópias de 
segurança dos programas gravados em fita, mesmo que origi- 
nalmente eles tenham sido gravados com proteção. 

Na época do lançamento do BKP para fita, não existia no 
Brasil uma lei que regulamentasse a produção e venda de software 
para computador e o BKP foi vendido livremente, tendo sido, com 
certeza, um dos campeões de venda algum tempo atrás. 

Mesmo sem ter tido o seu trabalho recompensado, o autor 
do BKP lançou a versão deste programa para disco e deixou a cargo 
da Paulisoft, softhouse de São Paulo que comercializa, entre outros 
títulos, o Edtronic e o MSX Turbo a venda do Sistema Operacional 
BKP de Disco, que também poderá ser encontrado em outras 
SOFTHOUSES, a exemplo do que acontece com todos os produtos 
da PAULISOFT. 

Mas o que vem a ser o Sistema Operacional BKP Disco? 








Eta Ts 


o usuário possua, facilitando, desta forma, a sua localização, cópia 
ou edição, ordenar o diretório, restaurar um arquivo que tenha sido 
apagado acidentalemnte ou que tenha tido algum problema na 
gravação, efetuar pequenas alterações em arquivos, possuindo, 
portanto, a função Zapper e diversas outras. 

O programa é composto de um programa principal 
(BKP.COM), que tem a função de carregar e executar os demais 
módulos que compõem o menu principal. 

O BKP disco possui três tabelas de caracteres, sendo que 
o usuário deverá selecionar uma delas, dependendo do computador 
e versão utilizados (Expert 1.1 ou 1.0e Hotbit), permitindo também 
a operação com cartão de 80 colunas. 

O manual que acompanha o soft é bastante detalhado, não 
deixando o usuário com dúvidas sobre a operação do programa, 
tendo tabela de mensagens de erro e um glossário de termos. 


Conclusão: 
O Sistema Operacional BKP 





O BKP Disco é um 











sofisticado sistema de cópia EO PAR 





de Disco apresenta inúmeras 











e edição, formado de 12 Ir 


comandos que permitem ao 
usuário trabalhar com a | 
unidade disco de uma forma 
mais fácil e segura. 

Os 12 comandos 
do BKP Disco permitem 
produzir cópias de 
segurança de discos, mesmo 
que estes possuam proteção 
contra cópia, manter um ar- 
quivo de programas, ou seja, 
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vantagens, tanto para os 
usuários de nível mais 
avançado como para aqueles 
que não irão utilizar todas as 
suas facilidades, como a de 
alterar arquivos gravados no 
disco. Uma vez que o usuário 
comece a trabalhar com o 
programa, absorvendo todos 
os seus comandos e maneira 
de trabalhar, ficará difícil 
operar com outros sistemas 

















uma lista geral de todos os 
programas ou arquivos que 


cio rival 





mais lentos e, de certa forma, 
mais complicados. 











TÉCNICAS E 
TRUQUES DE | 
PROGRAMACÃO 

















Nossos livros podem ser encontrados em livrarias e lojas de computação. Se o seu livreiro ou 
fomecedor habitual não os tiver disponíveis, entre em contato conosco pelo telefone (011) 843-3202. 

Se você não está recebendo seu boletim gratuitamente pelo correio, ou tem algum amigo que 
gostaria de recebê-lo, não deixe de enviar o cupom abaixo à EDITORA ALEPH - C.P, 20707 - CEP: 


01498 - SÃO PAULO-SP. 


« CIDADI mina 
MICRO(S) QUE POSSUI: 
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A PARTIR DE AGORA O SEU MICRO FICARÁ MUITO 


MAIS "INTELIGENTE". 
A MELHOR E MAIS BEM APARELHADA SOFTHOUSE DO RIO DE JANEIRO, 


AGORA EM NOVAS INSTALAÇÕES, COLOCA A SUA DISPOSIÇÃO 
A MAIS COMPLETA LINHA DE PRODUTOS PARA O SEU MSX! 








* SÃO MAIS DE 2.000 PROGRAMAS A SUA DISPOSIÇÃO, COM GRAVAÇÃO 
PROFISSIONAL GARANTIDA, 
º DRIVES, INTERFACES, EXPANSORES, PLACAS, MODEMS, GABINETES, ETC. 


VOCÊ SÓ TEM A GANHAR !  ciNROSE REVISTAS ESPECIALIZADOS. 
E MAIS! 


AGORA VOCÊ CONTARÁ TAMBÉM COM A EXCLUSIVIDADE DO ... 
NEWSOFT INFOCARD, 
O CARTÃO QUE ESTÁ REVOLUCIONANDO O 
MERCADO DE INFORMÁTICA ! 
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NÃO PERCA TEMPO! x INFORMÁTICA x 


Visite SHOW ROOM na Av. NILO PEÇANHA nº 50 sala 906, 
Ed.Rodolfo de Paoli, CEP 20020, bem no centro do RIO (Largo da Carioca) 


